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EDITORIAL 





Chers amis, 


Eh oui, les fêtes de fin d'année sont terminées et nous 
cherchons un petit moment où nous n'avons pas la téte trop 
lourde pour vous concocter um petit éditorial sympathique, 








Après cette deuxième année d'existence, nous sommes plus de 
190, dant un grand nombre utilisent leur machine à des fins 
professionnelles, Beaucoup d'entre nous se sont mis au HF71 
et un certain nombre ont gardé leur HPF41, HPF1S où HEF7S.., 





LES  MOUVEALLX adhérents CEUX qui onmE renouvelé leur 
adhésion Ont Fesu une rte de membre FFC, Celle-ci prouve 
l'adhésion au club et  donn& droit cr ins de nos 
"fournisseurs Club” UNE réduc de su Le prix HF, 
Celix qui habitent ce LS désireux d'en 
profiter, peuvent passe 
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le Concours 
QUI nous est 
€ modalités, seront 
in JPFE, Vous pouvez d'ores et déjà 


Bu VOS PFPOCFAaMMEE, s « 


Comme promis lors de 
Frogramme : Lancé. Il porte 
Si Cher su prix aime CU 
définis dar: proct 
nous envoyer vos article 









Fhilippe 


Monsieur, 


Débutant dans la technique de programaation du 
calculateur HP4ICV, pourriez-vous #®e donner 
quelques conseils pour l'achat éventuel de 
matériel: 


Notamment, j'envisage l'achat d'une batterie 
rechargeable ainsi que son chargeur plus un 
lecteur de cartes magnétiques. Pourriez-vous s'il 
vous plait na’indiquer le prix de chaque élément, 
ainsi que leur délai de livraison ? 
Personnellement, je pense que ces appareils 
constituent le matériel de base pour bien débuter 
en programmation; pensez-vous que les #odules 
TIME et K-Fonctions soient indispensables à la 
progranmation car pour Îles programmes publiés 
dans JPC, il faut ces modules, quelle est donc 
leur utilité exacte ? 


D'autre part, pourriez-vous pe dire à quoi 
correspondent les nonst ZENRON, CCDROM et RON 
PANÈME 7 À quai servent les fonctions 
synthétiques, quels avantages peut-on en tirer et 
n'existe-t-il pas d'ouvrages relatifs à leur 
utilisation et à leur programmation ? 


Existe-t-il des possibilités de prét de matériels 
et si oui quelles en sont les aodalités ? 


J'aimerais savoir ce que vous possédez dans votre 
bibliothèque de prograsmation, en particulier, en 
ce qui concerne les aatrices, la physique et le 
calcul intégral. 


Me serait-il possible de connaître le sommaire 
des derniers dPC ? 


En vous remerciant, je vous prie d'agréer #es 


salutations distinguées. 


F. COLET 


he tt +- 


Cher ami, 


de vais essayer de répondre assez précisement, 
aais brièvement à tes questions. Si tu désires 
acheter le lecteur de cartes aagnétiques, il est 
nécessaire de posséder une batterie rechargeable. 


Ce périphérique est très gourmand en énergie. Je 
ne connais pas les tarifs exacts, ais nous 
pouvons avoir chez nos fournisseurs "club" une 
réduction de de 25% par rapport au prix HP, 


Le nodule TIME n’est pas absoluñent nécessaire, 
horais pour certains programmes faisant 
intervenir une horloge, Son avantage, est qu'il 
dote la 41 d’une horloge extrénement précise, Le 
module XFonctions est nécessaire si tu as besoin 
de faire du traitement de fichier. Sinon, une 
grande partie des autres fonctions peut étre 
reprogammée en langage 41. D'autre part, il 
ajoute à la 4f une certaine quantité de méaoire 
étendue (124 à 600 registres) selon le nombre de 
aodules YMénory ajoutés, Note que ce eoduie est 
quasi-indispensable si tu envisages de te lancer 
dans la prograsmation synthétique. 


Les noms de ZENROM, CCDRON et ROMPANAME, sont des 
nons de #odules ROM enfichables cours n'importe 
quel aodule HP, Ils sont d'ailleurs fabriqués par 
HP, mais programmés en langage machine par des 
aeabres PPC, et ajoutent un très grand nombre de 
fonctions au calculateur. Ces fonctions 
facilitent le traitement de fichiers, le calcul 
mathématique (matrices. .}, facilitent la 
programmation synthétique et standard... Leur 
utilisation est décrite dans les JPC précédents 
et futurs, 


Le récapitulatif de tous les articles parus dans 
JFC paraît dans le numéro de Décembre-Janvier de 
chaque année. 


AMITIE et HEUREUSE PROGRAMMATION, 
PHILIPPE, 


À Ja suite de la lecture de votre confrère où 
concurrent PPCT, un historique des clubs PPC 
indiquait que les deux revues auraient accepté de 
être qu'une et unique. Puis PPCPC à semblé s’en 
défendre en disant que PPCT voulait pureñent et 
cinplement avaler PPCPC, Pouvez-vous nous donner 
des détails de cette guerre, la paix est-elle 
revenue ? 


Jd'ajouterai personnellement que deux journaux 
valent mieux qu'un, À quand PPC*{PPC) ? PPCPC en 





a t'il les moyens ? 


Passédant la version en anglais de Synthétique 
Programming, je #e suis lamenté sur sa version 
française, peu claire, illisible, dont les codes 
barres sont parfois effacés, voire non acceptés 
par le lecteur optique. Je ne parle pas des 
erreurs bien huaaines et compréhensibles, outre 
qu'il faille une Jloupe; une chose est cependant 
révoltante: à #anière d’avoir le Cric (ou Evte 
junper) dans la prenière version anglaise était 
inutilisable; la deuxièse version anglaise ajoute 
un addendua donnant une méthode soit disant bonne 
pour toutes les 41, #ais elle est inexacte, Les 
versions anglaises (américaines!) suivantes 
garderont l’iaprécision (portant sur la suite 
d'opérations pour obtenir le HG (ou CRICI), Pour 
une version française, totalement traduite, on 
s'attendait à du changesent, Eh bien pas du tout ! 


La traduction (éditée par les éditions du Cagire. 
C'est à dire ausi PPCT puisque l'adresse est la 
aëne) donne la version originale; puis une 
version qui devrait étre bonne pour toutes les 
HPAI. Mais cette méthode ne marche pas. Pourtant 
elle ne possède pas de copyright, Surtout pour 5 
lignes de textes ou plutôt d'opérations à suivre, 
Pour un livre aussi essentiel, pourquoi ne pas 
créer un livre français sur la PS, plus complet, 
mieux fourni et l'éditer par une vraie @aison 
d'édition 7? (PSI par exeaplei, Je suis 
personnellement prét à y participer, vu 
l'archivage personnel que je possède (tous pays) 
et le début de rédaction que j'ai coaposé (deux 
fascicules écrits, photocopiés), Vu mes études de 
médecine, Ile teaps a’est hélas précieux, Un 
travail avec de éultiples auteurs et une 
organisation centrale (sans faire de politique!) 
serait à étudier lune dizaine de spécialistes), 
les revenus positifs (s’il ÿ en a!) seraient 
équitables, tout travail 5e néritant, incitant 
les auteurs à donner de leur meilleur. Je 
sugaère, écritures #ises à part, que les méthodes 
et manipulations, les programees viennent de tous 
aziauths, de tout pays, de toutes revues faisant 
fi des copyrights protégeant les textes 
seulement. Ce travail est d'intérêt public et 
seul un travail de rédaction serait à 
récompenser. Les idées venant d'autrui seraient 
retenues, et leur nons nonmés. De plus, 
avons-nous les aoyens de créer une ROM française ? 
Car les éprons sont hardues à utiliser, et 
surtout intransportables, sauf en Ce qui concerne 
le HHP (lecteur d’éprom prenant la forme d'un 
faux lecteur de cartes magnétiques) 


Philippe TENAND (P44) 


Cher Philippe, 


Un certain nonbre de paints sont à éclaircir. 
N'oublie pas que les clubs PPCT et PPEPC ne sont 
pas concurrents, mais font partie d’un ensezble 
de clubs ayant le mêne but: développer la 
collaboration entre les utilisateurs de matériel 
HP. C’est le grand aouvement PPC. De notre coté, 
il n’a jamais été question d'accepter une fusion 
des journaux, ce qui se serait traduit par une 
absorption de Paris par Toulouse, En revanche, 
nous faisons très profitablenent l'échange de nos 
revues, Et je ne crois pas qu'une "guerre" ait eu 
lieu. Si tel füt le cas, c'est désoraais, et je 
le souhaite pour toujours, la paix. 

PPCPC a les moyens de sortir son deuxième 
journal: PPCS(PPC), Un secrétaire dernièrement 
nosné est actuellement au travail, la seule 
difficulté étant de trouver des bonnes volontés 
connaissant parfaitement le français, l'anglais 
et l'alleaand, puisque cette revue doit sortir 
dans les trois langues. 


Je ne peux te parler de la version fransaise de 
synthétic programming, ne l'ayant jamais eu entre 
les mains. Mais possédant la toute prenière 
version du livre de HMickes, j'ai trouvé son 
utilisation simple et claire. Mère aujourd'hui, 
quand je ay replonge, je découvre toujours de 
nouveaux trucs et astuces, Un livre français sur 
la PS avait été écrit par Lionel Ancelet, Laurent 
Istria et moi-même, @ais ayant rencontré 
certaines difficultées (auprés d'éditeurs cose 
PST,,.}, nous avons provisgirement fis a 
maquette de coté. Le livre étant totalement 
inédit, un remaniement est nécessaire avant 
impression. 


En ce qui concerne l'établissement d'une ROX 
française, n'oublie pas !a sortie de la RÜM 
PANBME et en Euroge, les ROM CCD et ZENROM, 1j 
faudrait réaliser une étude de marché, gais je 
pense que celui-ci devient trop réduit pour une 
telle réalisation. Avant de te lancer dans cette 
entreprise, je te conseille donc de faire de la 
prospection pour connaître l’iapact auprès des 
utilisateurs... 


Bon courage 
PHILIPPE. 
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+4 LIRGENT ## 


Joelle PASQUET vends: 

HP 290 Cschst début 83}, Eric HOCHART, 32 rue 
Video 821638 et Non. Ÿ Michart, 62188 CALAIS, 
ideo NB fachat 7/53/8633, 

le tout pour 7BBBFF Tel: 97 85 45 {apres 19h 
Telerhonnez pendant les gba À HP aiC0 à 

heures de travail au °h4s 

234 25 92 (laissez un 
hessage) ou à mon dofici 


lecteur de cartes. Prix 
a debattre, 


” 


le au 234 26 67. 


Etienne POUPEE cherche 
une interface analogique 


À 


digitale 4 entree. 


BUEOGF {Tel: 
cherche si on peut 
definir l'utisatio 


& ur fi; en 





PPC PARIS SE REUNIT UNE FOIS PAR MOIS 


Comme vous le savez peut étre déjà, FFC FARIS se réunit une 
fois par mais, en plein coeur de Faris,. ÂAmenez votre 
matériel, votre bonne volonté et vos idées ! Flus vous en 
apporterez, @&t plus vous en trouverez chez vos collèques de 
FFC, Ces réunions se déroulent de manière très libre, aucun 
ordre du jour, discussion où autre n'étant imposé. Un 
membre du Eureau est toujours présent, Ainsi, Si VOUS 
désirez remettre votre article tout frais au journal, si 
VOUS avez des suggestions à faire, Si VOUS  VvoOUlez vous 
procurer des anciens numéros de JFC, ce sera en principe 
taujours possible, 


Si donc cela vous intéresse, n'hésitez plus un seul instant 
venez nous rejoindre tous les premiers Samedi de chaque 


mois, au CENTRE DE JEUNESSE ET DE LOISIRS JEAN VERDIER 

li, rue de Lancry 

73010 FARIS 
Et en montant au deuxième étage, vous entendrez des éclats 
de rire et des discussions passionnées vers la salle 215. 
Bttention, toutefois, de venir entre 16 et 19 h. 


Four l'accks en métro, trois possibilités s'offrent & vous 

à Savoirs 

Métro Strasbourg SE Denis: sortie Forte Gt Martin / Hld St 
Denis, coté pairs. 

Métro République: sortie Hld St Martin, coté pairs, 

Métro J. Bonsergent: Sortie Bld Magenta, coté impairs, 


Ah, j'oubliais: JFC est distribué en avant-première lors 
de ces réunions à. À bon entendeur Salut ! 


Les dates des prochaines réunions sont: (1é6h-19h) 
— Le Samedi € Février 1985 

- Le Samedi € Mars 1685 

—- Le Samedi 20 Avril 1985 (Vacances scolaires) 


À Hientét... 
Fierre DAVID 
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Franck LEBASTARD 

ppt 1085 

15, cheain des Plates 
89120 Vaulx en Velin 
Tel (7) 880 77 34 


Cospte rendu de la réunion de Bretagne des 8 et 9 
septeabre 1984. 


Notons tout d'abord le franc succès rencontré par 
notre dernière réunion Bretonne, succès tellement 
iaportant que nous avons dû refuser du aonde, 
Nous avons finalement eu une quarantaine de 
desandes pour quinze places, desandes qui ont 
fusé de la France entière. Cyril Reigner (1282) 
est par exeaple venu spécialenent de Toulon pour 
ce “eek-end PPC, Bruno Tredez (T{20) d'Amiens et 
ce, pour ne citer qu'eux (les parisiens étaient 
nonbreux). 

Vous comprendrez ma déception quand j'ai constaté 
que trois des personnes qui avaient réservé une 
place n'étaient pas là Ie jour dJ. Sans 
congentaire, Elles n’ont pu être reaplacées que 
difficilement, après plusieurs coups de téléphone 
précipités, 


Etaient finalesent présents Jean Claude Becker 
(T471P62) de Paris, Gilbert Blanchet (1297) de 
Plérin, Patrick Cahierre (T340) de Guer, Pascal 
Dagornet (T467) de Plérin, Jean Jacques Dhénin 
{T212P177) de Paris, Jean Claude Dubois (1549) de 
Caen, Christian degouzo (P82) de St Herblain, 
Grégoire Jouve (T400) de Rennes, Georges Noël 
Nicolas (T438P147) de Crozon, Olivier Paugeon 
(Té2P64) de Quiberon, Cyril Reigner (1282) de St 
Herblain, Robert Schwartz (1178) de Bondy, Bruno 
Tredez {T120) d'Amiens, dacques Vaucelle 
(T106P21) notre hôte donc de Romagné, Serge 
Hallet (T197P144) d’Andresy, et enfin roi-nène 
(T35P43) de Redon. 


Cette rencontre s'est trouvée différente des 
précédentes de par un eaploi du teaps établi à 
l'avance. Ce sont en effet succédés à intervalles 
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réguliers des exposés et déaonstrations tout le 
long du week-end: 


- Exposé de Jean Claude Becker sur la 
construction d’un robot dont le cerveau serait 
une 41, robot dont les différents sens et degrés 
de liberté seraient gérés par des convertisseurs. 
Travail considérable que nous souhaitons viveaent 
voir aboutir. 


- Démonstration de la Ron Panane par Jean-Jacques 
Dhénin. Module exceptionnel à ne pas rater. 


- Exposé sur le convertisseur par Jacques 
Vaucelle, ce qui nous à perais de comprendre le 
fonctionnesent de cet appareil, et d’entrevoir la 
aultitude des applications qu’il peraet. 


- Désonstration de Georges Noël Nicolas sur le 
dialogue  HP4i/Sanyo 1250. Tout à fait 
extraordinaire. La 41, via une RS232 sur L'HPIL 
échange avec le Sanyo 256K des progranaes, des 
data, que chacun traite de son coté. Ce systène 
permet entre autres de stocker des inforaations 
4l sur disque. 


- Exposé de Jean Jacques Dhénin sur le aicrocode. 
Une première prise de contact avec ce langage 
pour ceux qui ne le connaissaient pas, que de 
noa. Le créateur de la Panaae (avec Stéphane 
Barizien) a en outre expliqué comaent utiliser le 
VASM qui constitue la bible du programeeur en 
#icrocode, dictionnaire des fonctions qui sont 
détaillées, explicitées ligne par ligne. 


de pense que cette rencontre a été assez réussie, 
autant au point de vue ambiance qu’au point de 
vue qualité de ce qui a été présenté, Je a’excuse 
encore auprès de ceux que j'ai refusé, faute de 
place, ils seront prioritaires la prochaine fois, 
dans la mesure où ils ne seront pas trop tardifs 
à 5e Signaler. 


Heureuse Programmation 
Franck LERASTARD 





Olivier POUGEON (T62Fb4) 
coordinateur de Bretagne 


&, Bld Chanard 
96170 QUIBERON. 


Chers amis du PPC, 


La dernière réunion en Bretagne date déjà de septenbre dernier aussi je pense que le noment est 
venu de se réunir à nouveau. La date que je propose est celle des 9 et 10 février 1985, 

Buant au lieu de la réunion ce sera une colonie de vacances près de la ville de Pleyben dans la 
région de Buiaper, le logement et le repas pourront y être assurés pendant les deux jours sans 
groblèse. Cependant, pour ceux qui préfèreraient passer la nuit à l'hôtel, des possibilités 
existent dans la région. 


La participation est fixée fortaitairement à 150F pour le week-end. 


Le nombre de participants sera lirité à une quinzaine de personnes, donc les premiers à s'inscrire 
seront les premiers servis (exception faite de ceux qui auraient un exposé à proposer qui seront 
bien évidesgent prioritaires). 


8 ce propos, par@i les sujets abordés figureront: 

- Les possibilités d’interfaçage entre «icro-ordinateur et HP 41 (stockage de programae 41 sur 
diskette, listage de programmes à l'écran, commande de l'ordinateur et de ses périphériques par la 
41, et aëse graphiques couleur), 

- Présentation de la ZENROM. 

- Sous réserve, le Forth et la 41. 


Cette liste n’est pas lisitative et si certains tiennent à traiter d'autres sujets, pas de 
problèmes. En dehors de ces sujets il y aura comme d'habitude La possibilité d'échanger programmes, 


trucs, conseils, ... et j'espère l'ambiance qui n’a pas aanqué jusqu'ici. 
Pour participer à ce week-end, écrivez aoi au: b, Blvd Chanard - 56170 Quiberon. 


En attendant, Heureuse Programsation à tous et Bonne Année. 


Olivier 





JPC 


Compte-rendu de l'Assemblée Générale 


Comme vous le gavez certainement, l'Assemblée Générale 
Ordinaire Annuelle s'est tenue le Dimanche 9 Décembre 1984, 
au Centre Maurice Ravel à Faris, 

Ce fut l'occasion de faire le bilan d'une année d'activité 
des membres du bureau, ainsi que de parler des projets à 
plus ou moins longue échéance, le tout dans une ambiance 
décontractée, 


Le premier point abordé était la progression du nombre 
d'adhérents, En effet, nous en sommes à 187 numéros 
distribués, ce qui représente environ 150 adhérents, S'il y 
a eù um creux en début d'année, la progression a repris 
normalement à partir du Sicob de printemps. Un facteur de 
cette progression àa sans doute été l'amélioration de la 
présentation de JFC, reconnue par tous (un petit peu de 
cirage n'a jamais fait de mal à personne !), fpparement, 
l'augmentation de la cotisation est bien acceptée, gage de 
confiance. Mentionnons encore une fois que "l'équipe de 
rédaction", c'est autant vous que nous ! 


La Coopérative sera réorqanisée dans le courant de l'année, 
pour pouvoir faire face à l'augmentation du nombre de 
membres. Le secrétaire qui en sera chargé devra assurer les 
achats à l'étranger, et les achats groupés. À cet effet, 


une carte de membre vous a été envoyée, Certains magasins 
POUR" 


nous font jusqu'à 20-254 de réduction sur présentation de 
cette carte. Contactez-nous pour en profiter ! 


Les réunions sont appréciées, Jean-Claude Becker a lancé 
l'idée de réunions à théme, mais cela n'a pas semblé 
recueillir beaucoup de suffrages, car il faudrait prévoir 
longtemps à l'avance, trouver quelqu'un capable de parler 
d'un sujet, et risquerait d'exclure une partie des membres 
de la réunions (exemples réunion gur le thème "Codes barre 
de La 41"), Au sujet des réunions, 11 faut préciser que 
nous n'avons pas La salle lors des vacances scolaires, ce 
qui Hplique, par exemple, que la réunion d'avril agit lieu 
le 20, Le journal est distribué lors de ces réunions en 
avant-première, saut les numéros doubles, Dans l'ensemble, 
les adhérents se félicitent de l'ambiance symnathique qui y 
rÈQqUe, 


Les xpositions sont très bénéfiques pour notre Club, 
Fendant cette année, nous fumes présents 4 fois: Créatique, 
Spécial Sicob, Micro-Expo, et GSicob d'automne avec plus ou 
moins de bonheur et plus ou moins de travail, 


La programmathéque va étre rendue plus efficace, grace aux 
efforts d'André (Cisel, IT est préférable que vous nous 
envoyiez VOS articles SU support magnétique, cela 
simplifie Le travail et pour André, et pour Fhilippe et moi 
pour faire la maquette de JFC, 
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Vinrent enguite les élections, Notre ancien trésorier, 
Fierre Lamy, ne fait plus partie du Club, et Frédéric 
Foupon est parti étudier à Strasbourg, Cela ne fait plus 
que 2 personnes pour s'occuper de FFC, Un peu trop juste, 
Se présentaient pour CES élections: Fhilippe Guez 
(Frésident), votre serviteur (Frésident-adjoint), Co Hao 
Fhuong (Trésorier), Jean-Claude KBecker, Laurent lTstria, 
Daniel Jacob, André QOisel, Michel Martinet (secrétaires). 
Fersonne contre *? Aucune objection *? Bon d'accord .., 
Une fois la (dure) campagne électorale achevée, il faut 
préparer les lendemains: toutes Les bonnes volontés pour 
aider le Club sont acceptées, méme si elles ne font pas 
partie des membres du bureau, Far ekemple, il faut des bras 
pour les expositions, des mains pour les enveloppes, et 
aussi Si vous vous en sentez la capacité, des voix pour 
répondre au téléphone, 


Notons encore que, grâce aux disquettes HFIL, le Club 
s'informatise à grands pas, 


Jean-Jacques Dhénin nous a présenté son module Faname. 
Laurent ITstria nous à parlé du projet "Fop-Corn"., Flus de 
détails dans le prochain numéro ! Serge Vaudenay a parlé de 
son futur module Forth pour HPFAT, Frometteur .,., 


Nous avions parlé, à um moment, de la possibilité de donner 
des cours. L'idée a été abandonnée, faute de volontaires, 


Un concours gsera organisé pour récompenser le meilleur 
programme ou article paru dans JPC. Les modalités seront 
exposées dans le numéro de Mars. Sachez d'ores et déjs que 
nous disposons d'un bon d'achat d'environ 3000 FF de 
matériel HF comme prix, À bon entendeur salut ! Four éviter 
toute contestation get toute partialité, les membres du 
bureau sont exclus du concours... 


Enfin, Fhilippe nous à parlé de la carte Minitel développée 
pat Lionel Ancelet, Que nous pourrons réaliser 
prochainement F4 À nous les horizons de la télématique, 
pour juste un peu plus que Le prix d'un convertisselr 
HPFRR1668.., Bientét peut-étre le Club aura-t-il une base de 
données interrogeable à distance ! 


Et la réunion  gs'acheva, comme de coutume, au bistrot 
Vivement la prochaine ÀG ! 


A Hientët 
Fierre DAVID 





CARTE MODEM 
NOUVEAUTES CHEZ HP 


Mon cher Philippe, 


Conse je te l'avais dit juste avant on départ au 
service #ilitaire, j'ai construit une carte modem 
interfacée HPIL. Coane je n’ai eu jusqu’à présent 
que des peræissions courtes, je n’ai pas pu 
#ettre la dernière main à aon projet de serveur 
Vidéotex (appelable par Minitel). 1} me reste ? 
ou 3 heures de travail sur cette carte, et elle 
aura les fonctionnalités suivantes: 

- interface HPIL, 

- liaison téléphonique à couplage direct {et non 
pas acoustique), 

- standards supportés: CCITT V,21 (300 bauds full 
duplex) et CCITT V,23 (1200/75 bauds half duplex). 
- numérotation autoratique, 

- réponse autonatique (détection de sonnerie). 


Ce qui veut dire que non seulesent elle peut 
répondre toute seule, c'est à dire décrocher 
quand on l'appelle, mais aussi décrocher et 


coaposer un nunéro. 


Tout ce que je t'ai décrit aarche déjà en V.21, 
il ne #e reste qu’à ajouter quelques switches 
pour avoir le V.23 (utilisé par les ainitels). 
Coté 41, il faut bien entendu Le aodule HPIL, et 
le #odule X 1/0 ou HP-IL development. Ca 
aarcherait aussi avec un HP71 ou un HP75 ! 
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(LIONEL ANCELET) 
(PIERRE DAVID) 





Voici le synoptique de cette carte: 

















HPIL données // données 
Converter nf série 
HPBALBQA LT uaRT * 

handshake 


détection de sonnerie 






interface 
ligne 


décrochage-raccroch. 


numérotation 


conjoncteur 
sur al 


À coté de 6a, je suis en train de construire une 
“boîte noire": HP-IL <==} Péri-informatique, qui 
perset de connecter une 41 à un ainitel, sur la 


prise DIN 5 broches dite péri-informatique et qui 
permet à cette 41 de piloter le Minitel. 








Avec un Minitel "R", c'est à dire à node 
retournable, Je vois l'application géniale 
suivante: 
HPIL péri-info ligne 
téléphonique 


Min. de dules 
{gratuit} 





péri-infc 






Minitel 


Minitel de Georges (grauit) 


Coût d’une boîte noire: inférieur à 1000 Frs. 


et Jules et Georges peuvent échanger progrannes 
et données via Le résau téléphonique .,, à 1200 
bauds. 

nbs il suffit qu'un seul des 2 rinitels ait un 
nodes retournable. 


Il suffirait donc que chaque aeabre ait sa "boîte 
noire", et ils pourraient échanger des progrannes 
en utilisant le “modes de leur Minitel. Et au 
club, il pourrait y avoir un répondeur Vidéotex, 
avec une banque de progranres. Coane &a carte 
peut aussi, moyennant l’adjonction d'un switch, 
faire le standard Bell à 300 bauds, on pourrait 
échanger des programmes avec les Etats-Unis... 


Concrètement, tu peux d'ores et déjà allécher les 
mesbres du club en publiant tous les 
renseignements que je viens de te donner, dans le 
journal. Très prochainesent, je te communiquerai 
les plans de la carte définitive, pour 
publication, et bien entendu, je ferai une 
désonstration de #on prototype. De plus, si #a 
“boite noire" marche, j’en donnerai aussi les 
plans et une fabrication en série sera envisagée, 
parce qu'à ma connaissance, il n'existe pas de 


tel convertisseur HP-IL (==} péri-inforaatique 
sur Îe marché, et Ga pourrait intéresser des 
gens. (Il existe des convertisseurs 
HP-IL €z=} R5-232 et RS-232 ==} péri-inforaatique 
, fais bonjour le prix !!1), 

C'est tout coté hard. 


Coté soft, j’ai expériaenté un peu avec le rodule 
HP-IL  DEVEL (surnonné HP-IL DEVIL aux USA), et 
j'ai écrit le petit prograane suivant, qui donne 
un accès total et non norsalisant à toute la 
aséaoire programe, en lecture et/ou écriture. Le 
progranse efface alarres et assignations, dans un 
souci de siaplicité, aais on pourrait l’anéliorer 
pour qu'il en tienne conpte. 

91 LEL "OM" (open nerory) 

02 FC? 00 

G3 CLRALNS 

04 FC? 00 

05 CLKEYS 

06 bb 

67 PSIZE 

08 F7100001890C0100 

09 REL M 

10 X6)c 

1i F7CCFF0000000000 

12 F5? 00 

13 CLA 

14 RCL M 

15 STD 00 

16 XCY 

17 STD c 

18 END 


(efface alarges) 


(efface touches) 


Mode d'emploi: CF 00, XEQ "OM", 
buffer qui coamence au premier octet de la 
mémoire prograsme, et qui descend jusqu’en 0Ci, 
le registre 0C0 contenant l'en-téte de ce buffer, 
long de 255 registres (FF), 


crée un I/0 


À partir de là, on peut utiliser toutes les 


fonctions comse: PRBYTES, X-BUF, BUF-XB, À-EUF, 
BUF-AX, .., pour lire et écrire dans la nénoire 
programme. 


Pour effacer l’en téte du buffer, ne surtout pas 
faire 0 BSIZEX, mais SF 00 XEE "OM". 

nb: l'affichage du pointeur (PT?), défaille 
au-delà de 1000, nais on peut quand #éne le 
positionner avec PT=, ou le laisser s’incréaenter 


IPC 
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tout seul (AIPTI. 


Si tout 
exploité, 
le publier. 


cela n’a pas déjà été découvert, 
publié dans le journal, libre à toi de 


feitiés et à bientôt j'espère. 
Lionel ANCELET, 


À tous les HP-istes: 


PISCES: un nouveau portable. 


HP sort un nouvel ordinateur portable. Après le 
demi-échec du HP110, Corvallis annonce un nouveau 
nodèle de la série 200. 


En quelques aots, le 207 se caractérisera par: 

- Microprocesseur 16/32 bits NCh8000 Motorola, 
tournant à 8 MHz, et 4 No d'espace adressable., 

- 254 Ko de aéaoire morte, et 512 Ko de vive. 

- I fonctionne sous UNIX (ou plutôt HP-UX), très 
apprécié par les connaisseurs. 

- Possibilité de aulti-tâches, nuliti-fenêtres, 

- Les langages disponibles seront: Basic, Pascal, 
C, et Fortran. 

- Possibilités d'extension: HPIE intégré, RS232, 
GPIO, HPIL en option. Cartouches Ron enfichables 
(Basic et Systèae d'exploitation), mémoire vive 
additionnelle (128 à 512 Ko !}, carte modern... 

- L'affichage n’est pas à cristaux liquides, œais 
éléctroluninescent. Des ruseurs ont couru conne 
quoi c'était un écran plasma, Rumeurs non 
confirmées. L'écran fait 9 pouces, et affiche 
jusqu'à 31 lignes de 85 caractères { standard !). 
La résolution atteint 512 x 253 pixels. 

- Cet écran est controlé par un microprocesseur 
16 bits doté de 32 Ko de méroire vive. 

- Le lecteur de disquettes 3,5 pouces est 
intégré, ainsi que l’iapriaante à jet-d’encre, 


La lecture de ces caractéristique laisse présager 
un prix en conséquence, Je vous rappelerai 
sisplenent que l’unité de nesure, pour la série 


200, est la dizaine de nilliers de francs, voire 
la centaine de milliers de francs. À noins qu'HP 
ne fasse un effort, je ne parierai rien sur ce 
nouveau bébé. (de préfere aanger des nouilles et 
éconoaiser: j'envisage d'acheter un Cray-1 pour 
son HP71...) 


HP 41: 


Plus près de nous, la Ron Panare est enfin en 
France, la Rom CCD ne saurait tarder, la ZENROM 
se trouve (en cherchant bien). Serge Vaudenay est 
en train de finir ses 8 Ko de microcode pour son 
aodule Forth/41. Il est en train de chercher des 
volontaires pour le “déverainage". Si cela vous 
tente, toute la communauté 41 vous en sera 
reconnaissante... 


HP 71: 


Du coté HP7!, des 
nouveaux #odules: 

- Un aodule Data-Con, (Peut-être utilisable avec 
la carte de Lionel Ancelet ?} 

- Un aodule "statistiques", 

- Un #odule “Traducteur HP41*. Ne se demandez pas 
plus de précisions, JE NE SAIS PAS ! 


rumeurs circulent quant à 3 


Et le plus intéressant senble être l’annonce par 
HHP de modules RAM, enfichables dans le logeaent 
du lecteur de cartes. Capacités disponibles: 

- 32 Ko (300 $) 


- 64 Ko 

- 94 Ka (990 $). 

Les prix sont raisonnables, eu égard aux 
perforaances. 

HP IL: 

Enfin, une firme anéricaine a annoncé un écran 


plat à cristaux liquides (25 lignes de 80 
caractères). Montant: 600 $. Il faut en plus 
ajouter l'interface HPIL, soit environ 200 $, Il 
vaut peut-être aieux attendre encore un peu... 


Ne révez pas trop... 
Pierre DAVID 


"DEFILEMENT ALPHANUMERIQUE LOGIQUE" (suite) 


À la suite d'essais du défilement étrange que 
j'ai déjà décrit dans le JPC précédent, voici ses 
dernières expériences: 


Le défilement et la juxtaposition d'un ensesble 
alphanuaérique mobile et d’un autre iamobile sur 
l'affichage, et dont la sorse des codes donne 
bien la fonction du catalogue où le pointeur 
s’est stabilisé, est bien utilisable quelque soit 
le catalogue ou la fonction préchoisie. 


Le lecteur de cartes n’est pas obligatoire. Par 
contre il faut, pour qu'il y ait défilement, au 
aoins deux modules: le *PPCROM’ à la sortie |, et 
un autre (quelconque ROM) à l'eaplacement 2, 


RAPPEL: Faire un catalogue; STOP; [XEG] "567" (en 
sode alpha) et [(-]: avec deux aodules (dont le 
PPERON à l'entrée 1). Un bloc alphanuaérique à 
droite reste nobile, tandis qu'un autre va 
régulièrement, sans cesse, de gauche à droite, et 
leur réunion donne d’une manière logique (sonne 
des octets de deux signes avec une différence 
constante de 32) l'affichage de La fonction ou le 
pointeur s’est arrêté. 


Il n’y a qu'avec [CAT] {, [XEG] "SST", donnant 
0.6000000 que zéro se déplace, sans plus, et sans 
défilement. 


Le seul aoyen d'arrêter le défilement: enlever la 
batterie, la renettre, puis CON}; sinon le 
défilenent repart. 


Suite de &es recherches: 


Pendant le défilement  (incessant}, si vous 
retirez un des deux aodules (sorties |! ou 2), 
elle vous répondra "NO". 


[é-1 donne: BR686T0 IND . Puis, NO revient, À ce 
rosent, et à celui là seulement, [ON] redonne une 
HP41 normale {sinon [ON] on'efface pas 
l'affichage). À un autre moaent, suivant Îles 
touches appuyées (ALPHA, PRGM), NO sera à droite 
au à gauche. Avec [CR/S1, le défilement ne 
reprendra que s’il y avait 3 rodules RON dans la 
41 (depuis le début}, sinon, NO se répète, Mais 
le défilement n'est plus le nëne: la sonne des 
deux séries alphanuaériques ({{ #obile, l’autre 
pas) donne NO, comae si NO pouvait Étre listé. On 
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se rappelle alors que diverses manipulation 
accidentelles donnent des listages surprenants: 
par catalogue: NO l 

RCL 01 SIZE 

RCL 02 TO IND L.G6 

RCL 03 "XV LC" 

; LEL 05 

etc...) GT0 IND P 

+ 


Les recherches au delà de l'étrange continuent. 
Avez vous noté sur le papier les #anipulations 
qui donnaient de si étranges résultats ? Ainsi 
que les fréquences plus basses ou plus hautes que 
celles peraises par La prograasation synthétique ? 
Cela a’est arrivé plusieurs fois, mais je n'avais 
rien noté. 


Quelques résultats que j'ai eu: 
CAT] { donnant: LEL 12 LN 

CLD 

+ 

HCLRG 

AGCI 

êL9 
EL< 


D-R 
U: 
Ke=Y? 
d$ 
(etc...) 
Ce genre de catalogue n’est arrivé souvent, 
Apres diverses manipulations, j'ai souvent 
rencontré ce sous programre (une dizaine de fois): 
1 P-R 
CSST] -} 62 E*X-1 
(571 -} G4 LBL 05 
CSST] -> O1 “ X V LC“ 


Une fois que je cherchais quelque chose 
d'intéressant avec le module jeux, je suis tombé 
dans un sous progratne qui n'avait rien à voir 
avec le prograame JACKPOT, mais qui, au pas No 
4055 avait: " JACKPOT". Diverses sanipulations 
a’ont donné aussi: 00 REG 1009 (et END REG 1909), 
00 REG 767 (et END REG 767), (SIZE quelconque 
donnant MEMORY LOST, sinon tout reste normal). 
J'ai du couvrir des pages et des pages de 
catalogues étranges et de sous progranmes sans 
fin, 
Philippe TENAND (P44) 





: DEFILEMENT ALPHANUMERIQUE LOGIQUE 


PROGRAMME "FI" POUR HP AI 
LES TOURS DE HANOI 
TRADUCTION HYEROGLIPHES 
XA et AX 


: SPINVS 


(PHILIPPE TENAND) 
(PIERRE DAVID) 
(GILBERT TISSERAND) 
(JEAN-PIERRE TOYRE) 
(DENIS CASTELLAIN) 
(JEAN-JACQUES MOREAU) 





Frogramme "F1", pour HP 41 


Ce jeu se joue seul ou à plusieurs, en compagnie d'une HF4i 
avec module XFonctions. 

L'idée de ce programme m'est venue en lisant Jeux & 
Stratégie. Comme son nom l'indique, il simule une course de 
voitures (ou de ce que bon vous semblera: escargots, sacs, 
etc...). 

Son originalité vient de ce qu'il se passe sur un circuit, 
Bof, me rétorquerez-vous. Oui, mais ce circuit, c'est vous 
qui le dessinez: avant de commencer une partie, vous pouvez 
définir un autre circuit, peuplé de ces dréles d'étres que 
l'on nomme courbes, ou bien si le coeur vous en dit, et 
s'il est bien accroché, tentez de grandes lignes droites où 
vous pourrez atteindre les 500 Km/h. Brrr..., 


Si vous vous sentez l'äme d'un Frost, Tambay ou Arnoux, et 
si vous possédez une HPF41 avec XFonctions, ne perdez plus 
une minutes: entrez le programme, mettez le starter, faites 
un peu chauffer le microprocesseur, et en route... 


Voyons d'abord le rêle des touches utilisateurs: 
CA]: Entrée de l'accélération 

CH: Continuer à vitesse constante 

CC]: Accélération constante 

CD]: Entrée de la décélération (frein) 

CE]: Initialisation (en fait, assignation de "F1") 


CF]: Visualisation de la vitesse 

CG]: Affichage du No de tronéon dans lequel on va entrer 
CI]: Affichage du temps écoulé 

CJ]: Joueur suivant 


Cal: Affichage de l'accélération 
Cecil: Introduction du circuit 
Cdï: Entrée des noms 


L'introduction des noms 5e fait normalement après l'entrée 
du circuit. Vous avez introduit le programme ? Faisons 
alors un tour d'essai. 

XEQ "F1", À l'affichage: 0,0000 

Faites R/S, ou XEQ "c'; il faut introduire le circuit. Four 
ce faire, il faut le découper en petits tronsons 
élémentaires, pour lesquels on a soit une droite, soit une 
courbe avec un angle constant. Supposons, pour l'exemple, 
que l'on veuille entrer le circuit suivant: 
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On fera alors (chaque tron$on est de longueur 1) O0, R/S, 0, 
R/6, O0, R/S, O0, R/S, 90, R/S, -90, R/S, O, R/S, -45, R/S, 
AS,  R/S, O0, R/S, -970, R/S, 0, R/S jusqu'à X=0,9 et Y=-1,46. 
Faire alors -90, KR/S et enfin ©, R/S. 


Vous avez pu remarquer deux choses: d’abord, les 
coordonnées sont affichées, et ensuite le programme sait 
tout seul quand le circuit est fini, (IL faut 


obligatoirement que le circuit soit fermé). La tolérance 
est de 0,5 (ligne 082). 


Vous voyez maintenant, à l'affichage, la question "NOM 7". 
Entrez les noms des joueurs (12 lettres au plus). Après 
chaque nom, KR/S. 

Une fois le dernier nom entré, faire R/S sans rien entrer. 
Nous voici alors préts 4 partir, Votre ceinture est elle 
attachée © 

Allons-y. 


L'affichage (sympathique) vous invite à jouer, La 41 vous 
signale toujours qui a le trait. 

Vous pouvez alors choisir parmi toutes les options qui vous 
sont proposées, (mais attention: un seul COUP 
d'accélérateur où de frein par tour de jeu). 


Faites CG]: vous voyez TR, 1", c'est à dire que vous vous 
trouvez à l'entrée du premier tronson. 
Faites LF]: vous voyez "VIT=O EM/H", Besoin d'explications 7? 


Faites CI]: le temps écoulé est 0,0000. Ce "temps" tiendra 
compte de votre audace au volant, mais aussi de vos chutes 
(nombreuses, croyez-moi). 

Faites [CJ1: Oh, excusez-moi, je me suis trompé. Ce n'est pas 
grave, refaites CJT jusqu'à voir affiché votre nom. 

Faites lCal: votre accélération est nullez: bon; nous allons 
partir, les vérifications d'usage sont terminées. 


Vous vous trouvez devant une longue ligne droite. Nous 
allons écraser la pédale d'accélérateur, c'est à dire 
choisir une accélération de 1 (1 est la valeur maximum, © 
la valeur minimum). Faisons 1, CA]; vous voyez votre 
vitesse qui s'affiche. Si vous en avez envie, regarder 
votre temps. le tronson, atc... Fassez la main au joueur 
suivant, qui fera la méme chose pour commencer, et c'est à 
NOUVEAU à VOUS. Faites [CG], vous £étes bien devant le 
tronson  Æ. VOUS avez encore À  tronSons pour accélérer. 
Allons-y: VOUS POUVEZ encore accélérer de 1: faites CCI, 
c'est prévu pour Ga, (167 Em/h, bigre !) 


Continuez à accélérer encore pendant deux tronsons, en 
laissant de temps en temps jouer votre partenaire, bien 
sür, et vous atteignez Æ41 Em/h. Votre partenaire a joué 7? 


Faites [G]: horreur, vous vous trouvez devant un virage à 
angle droit !  Ecrasez le frein, faites 2, CD] pour 
décélérer. Aie Aie fie, Sa n'était pas suffisant: 
"DECORK..," Votre vitesse est alors nulle, ainsi que votre 
accélération, et vous n'avez toujours pas traversé ce 
tronéon. Ce sera au prochain tour, mais vous avez pris du 
retard sur votre adversaire. 

Vous avez compris 7? Je peux vous lacher seul ? Vous allez 
prendre une voiture sans doubles commandes. Une dernière 
chose: CET peut étre trés utile pour rouler à vitesse 
constante. 


Soulevons un peu le capot, maintenant, 

Le principe, pour plusieurs joueurs, est que chacun a un 
bloc de registres qui identifie sa position, son nom, etc... 
Quand c'est à votre tour de jouer, vos 4 registres sont 
recopiés dans les mémoires 10 à 15, où 10 et 11 contiennent 
le nom, 12 code le No de tronéon + 15, 13 enregistre la 
vitesse, 14 le temps, et 15 contient l'accélération du 
véhicule (ou de l'escargot}). 


Le circuit est enregistré tronéon par tronson, à partir de 
la mémoire 146, les blocs des joueurs se trouvant après le 
cireuit. 

Les instructions utilisées (XFonctions) sont: 

CLEÉEYS, qui efface toutes les assignations, (dont celles 


des deux rangées supérieures) 

FASN, qui assigne la fonction dont le nom figure dans 
le registre ALFHA, à la touche dont le code est donné en X*. 
REGMOVE transfère un bloc de registres: o0o0o,dddnnn où o 
représente l'Origine du transfert, d la Destination et n le 
nombre de registres à transférer, 


Une dernière remarque (et peut-étre pas la moins 
importante): vous pouvez constater, aux lignes 2146 et 217, 


LEL J, GTO J. Réfléchissezr, et pensez que c'est pour 
accélérer l'accés au LRL J,. 


Allez, je vous laisse. Soyez prudent... 


Fierre DAVID 
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BIeLBL “Fi” 
SF 27 CF 29 CLKEYS 
"F1" 15  PASK 
18.888886 STO 88 
.818886 STO 89 6 
STO 86 CLST RTH 


16+LBL c 
RCL 88 RCL 89 CLRG 
STO 49 RDN STO 88 6 
STO 86 15.2 STO 81 
FIX 1 


28+LBL 18 
98 STO 14 ISG 81 
RCL 12 RNHD RCL 11 RHD 
"X=" ARCL X ‘+ v=" 
ARCL Y RCL 18 TOHE 7 
PROMPT STO 18 Xx-8? 
GTO 88 SIGN REL 14 + 
RCL 13 + RCL 18 ABS 
D-R 1/X P-R ST+ 11 
KCOY ST+ 12 LASTX 
RCL 13 RCL 18 + LASTX 
SIGN RCL 14 + - KO 
GTO 81 


78+LBL 68 
REL 13 1 


23+LBL @1 
P-R ST+ 11 XCY 
ST+ 12 RCL 18 ST+ 13 
ABS STO IND 81 RCL 11 
ABS .5 X(=#? CGTO 18 
REL 12 ABS X»Y? 
GTO 18 TONE 9 


S2+LBL d 
388 STO 88 £REG 18 
REL @1 FRC ST- 81 
STG 42 ANN 
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181eLBL @5 

CF 23 TOHE 5 “NOM ?° 
STOP FC? 23 GTO 88 
CLE ASTO 18 ASHF 
ASTO 11 16.2 STO 12 
RCL 81 RCL 82 INT 
RCL 86 # + E3 / 
RCL 88 + REGNOVE 

ISG 82 GTO 85 


127+LBL 88 
AOFF RCL 82 INT 
STO 82 -1 STO 83 


134eLBL J 

1 ST+ 83 RCL 63 

RCL 82 MOD STO 83 

REL 96 + RCL Bi + 

RCL 49 + REGNOYE “A * 
ARCL 18 ARCL 11 TOME 9 
PROMPT 


153+LBL À 

"BCKCL S,T.P."  X(=8? 
PROMPT SIGN LAST& 
X)Y? PROMPT GTO 88 


162+LBL B 
CLX GTD 48 


165+LBL D 

"BCRCA S.T.P," K(=8? 
PROMPT 2 x<)Y x)? 
PROMPT CHS 


174+LRL 8 
STO 15 


1764LBL € 

RCL IND 12 X%x=87 E-9 
1/K SORT 7 Efx +* 

RCL 48 REL 13 - 

RCL 15 # 3 7 ST+ 13 
RDH REL 13 1/X ST+ 14 
1/X X2Y2 GTO 08 

ISG 12 XE0 F 


282+LBL 86 

REL 43 RCL @6 * 

REL 81 + E3 / 

RCL 88 + REGHOYE CLST 
TOHE S RTK : 


216+LBL J 
GTN J 


218+LBL 68 

" DECOR ...” AYIEX 
TOHE 2 A Ex / 
ST+ 14 RND STO 13 
STO 15 GTO 86 


238+L8L F 

FIX 8 RCL 13 RD 
“VIT=" ARCL X “FH KH/H° 
TONE 9 AVIEH RTH 


248+LBL G 

REL 12 13 - FIX 8 
"TR. “ ARCL X TOHE 6 
PROMPT 


249eLBL I 
FIX 3 “TPS=* AREL 14 
TOHE 4  PROMPT 


299+LBL à 
FIX 2 “ACC.=" ARCL 15 
TONE 8 PROMPT .END. 


TISSERAND 
42, Av. du Gal de Gaulle 
77500 CHELLES 


LES TOURS DE HANOI. 


Programme en alphanumérique, 
Mode d'emploi: 


-11 suffit de faire passer les 5 disques numérotés 1 à 5 


de la tour A sur la tour C en se servant de la tour 
intermédiaire B ; à l'appel de : TOUR - ? ,appuyer sur 
A,B, ou C , pour indiquer de quelle tour vous désirez 


oter un disque ; ensuite apparait : TOUR + ? 


appuyer 


sur ÀA,B, ou C, pour charger la tour choisie, du disque 
oté précédemment, jusqu'à l'empilement de toutes les 
plaques sur C. La seule règle est de ne pas poser un 
disque plus grand que celui sur lequel vous le posez. 


Début du jeu, GTO.9#1 R/S : 


AFFICHAGE : 123454 B C, toutes les pièces sont sur À 


et rien ne se trouve sur B, ou C, R/S. 
Après chaque affichage des résultats R/S. 
Votre score est totalisé en fin de partie. 


32 ARCL 62 66 CLA 188 2 
33 ATOX 67 AREL 81 {81 - 
GTO .6@i 17:35 12/49 34 X)Y? 68 KEQ 82 182 AROT 
A O1+LBL “HANOI* 35 CTO 88 69 ASTO 1 183 RTK 
123458 6 C 82 CLX 36 STO 84 78 GTO “+” 1844LBL =" 
js 83 CLRG 37 ASTO 02 7ieLBL B 185 6 
PILE - ? _ g4 FIX @ 38 GTO Qi 72 CLA 186 CLA 
#EO À 95 CF 29 39eLBL C 73 BREL 2 187 ARCL 83 
PILE + * it 86 “12345A" 48 CLA 74 KEQ @2 188 ALEKG 
| 87 ASTO 81 41 ARCL 83 75 ASTO 82 189 K=Y? 
PILE - ? 88 “B” 42 ATOX 76 GTO “+ 116 KEQ 84 
REG R gg psTo 82 43 1? 7HLBL C 111 CLR 
PILE + ? 18 “C- 44 GTO 88 78 CLA 112 ARCL @1 
see 11 ASTO 83 45 STO 84 79 ARCL 63 it à 
345A 18 2C 12 CTO ==" 46 ASTO 83 88 XEQ 82 114 ARCL 82 
45 38 12t 13eLBL +" 47 GTO 81 81 ASTO 63 115 “+” 
145A 238 C 14 FS2C 5 48+LEL 88 82 GTO “+ 116 ARCL 83 
5A 1238 4C 15 CTO -=" 49 KTOR 83+LBL 82 117 AVIER 
1SA 3B 24€ 16 1 50 “+ VIDE." 84 ATOX 118 STOP 
35A B 1240 17 ST+ 65 51 AVIEM 85 x)v? 119 GTO “+” 
235A 1B 4C 18 64 52 PSE 86 SF @1 1284LBL 64 
1235 4B C 19 “PILE - 2" 53 GTO +" 87 FS? @1 121 CLA 
35A 148 2C 28 PROMPT 54 x=9? 88 KEQ 83 122 ARCL 85 
SA 34B 120 21eLBL A 55 PROMPT 89 FS2C 81 123 “+ ESSAIS" 
154 2346 € 22 CLA 56 RTH 98 RTH 124 AVIEM 
A 12348 SC 23 ARCL 81 S7+LBL 81 91 “ILLEGAL 125 PSE 
1A 348 25€ 24 ATOX 58 RCL 84 92 AVIEH 126 RTK 
3A 48 125€ 25 X)Y? 59 FC2C 86 93 CTO 81 127 .END. 
238 148 SC 26 CTO 80 68 SF @6 94+LBL 63 
1238 B 45€ 27 STO 84 61 FS? 86 95 KOY 
3A 28 145C 28 ASTO 81 62 SF 65 96 XTOA 
A 12B 345€ 29 GTO 81 63 “PILE +2 97 RDK 
IA B 2345C 34eLBL B 64 PROMPT 98 XTOA 
48 ESSAIS 31 CLA 65eLBL A 99 ALENG 
A 8 123450 
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CAT i 
LBL'ESPOIR 
LBL'1 
END, 1169 BYTES 
68:44 84.12 


CE PRGK H'EST GU'UH JEU 


$ HE DOIT PAS ETRE PRIS 
AU SERIEUX. TANT IANS 

SES REPONSES PARTIELLES 
QUE DANS SES SAHCTIONS 


FIHALES 


PAR CONTRE SES CONSEILS 
SONT TOUJOURS JIHDICIEUX. 


TISSERAND 
E2, Aw. du Gai de Gaulle 
ZZ500 CHELLES 


es 
= 
[1 
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8ieLBL “ESPOIR” 
62 “Tisserand” 
83 * Gilbert” 
@4+LEL 68 

05 “PREHON ?° 
66 AN 

87 PROKPT 

68 ALENG 

89 3 

16 / 

11 STO 84 

12 AOFF 

13 AY 

14 FS? 21 

15 “++a=rl" 
16 FC? 21 

17 “+++ ” 
18 XCD L 

19 STO d 

è8 72 

21 ST0 8@1 

22 58 

23 DHY 

24 “JJ,HNAAAA" 
25 PROMPT 

è6 DATE 

27 DDAYS 

28 365 

29 / 

38 STO 18 

31 1 

32 STO 82 

33 “H./F. 2° 
34 PROMPT 
35+LBL F 

36 1.05 

37 STO 82 

38 SF 88 
39+LBL H 

48 .9 

41 “TAILLE/CH ?° 
42 PROMPT 

43 188 

#4 - 

45 RCL 18 

46 18 

47 / 

48 + 

49 FS? 68 

59 .8 

Si + 

S2 STO 63 


53 “POIDS EN KG° 
34 PROMPT 
95 K(=Y? 
56 GTO 81 
97 .9 

98 + 

99 K(=Y? 
64 GTO 82 
61 XOY 
6ë SF &i 
63 - 

64 XEQ 15 
65 GTO @2 
66+LBL 81 
67 1.2 

68 * 

69 XV? 
76 GTO 82 
ie 

7è SF O1 
73 XEQ 15 
74+LBL 82 
75 XEQ 11 
26 “CITADIN ?° 
77 KEQ 18 
78 x=Y? 
79 GTO 83 
88 1.83 
81 ST+ 82 
82+LBL 83 
83 KEQ 11 
84 “SEUL” 
85 F5? 88 
86 “HE” 
87 “+ 2° 
88 XEQ 18 
89 xxv? 
98 GTO 84 
91 FS? 08 


96+LBL 85 
97 .94 

98 ST+ 82 
99+LBL 84 
188 XEQ 11 
181 “HANUEL* 
182 F5? 88 
183 *+LE” 
184 *+ 2° 
185 XEQ 18 
186 x=v? 

187 GTO 86 
188 1.03 

199 ST 82 
118+LBL 86 
111 KEQ 11 
112 *SEDENTAIRE 2° 
113 KEQ 18 
114 Xe? 


115 GTO 87 
116 1.84 
117 ST# 82 
118eLBL 87 
119 XEQ 11 
128 “SPORTI” 
121 F5? 68 
122 *+YE* 
123 FC? 88 
124 “FF” 
125 “+ ?° 
126 XEQ 18 
127 X#Y? 
128 GTO 68 
129 1.84 
138 ST+ 02 
131+LBL 88 
132 RCL 14 
133 15 

134 X3Y? 
135 GTO 83 
136 KEQ 11 
137 “EN HARMONIE” 
138 AVIEK 
139 PSE 
148 “SEXUELLE ?° 
141 KEQ 18 
142 K#Y? 
143 GTO 89 
144 1.684 
145 ST+ 02 
146eLBL 89 
147 XEQ 11 
148 "CALME ?° 
149 XEQ 18 
158 X=Y? 
151 GTO 8 
152 .96 
153 ST+ 82 
154+LBL 81 
155 XEQ 12 
156 “SOMMEIL 7° 
157 6 

158 PRONPT 
159 KC=Y? 
168 SF 62 
161 12 

162 X(=Y? 
163 SF 82 
164 CLX 
165 9 

166 X2Y? 
167 XOY 
168 - 

169 XEQ 15 
178 XEQ 12 
171 “CIGARETTES ?° 
172 PROMPT 
173 18 

174 - 

175 X(8? 
176 GTO 82 


177 4 

178 / 

129 XEQ 15 

1886LBL 62 

181 XEQ 12 

182 “CL. DE VIN ?° 
183 AYIEK 

184 PSE 

185 “1 VERRE = 28° 
186 PROMPT 

187 48 

188 X)Y? 

1893 GTO 83 


194+LBL 63 
195 1.81 
196 ST+ 82 
197 XEQ 11 
198 “CHANCEU” 
199 F5? @8 
284 “+SE* 
281 FC? 08 
262 “+K" 
283 ‘+ 2° 
284 XEQ 18 
285 xX=Y? 
286 SF 88 
287 RCL 84 
288 RCL 88 
289 9827 
218 * 

211 .211327 
212 + 

213 FRC 

214 STO 88 
215 +* 

216 INT 

217 1 

218 + 

219 FS?C 88 
228 CHS 

221 XEQ 15 
222 “ASCENDANTS: " 
223 AVIEH 
224 PSE 

225 “AGES de + 88° 
226 -3 

227 PROMPT 
228 * 

229 XEQ 15 
238 58 

231 RCL 18 
232 X(=Y? 
233 CTO “1” 
234 XEQ 13 
235 “PERE" 
236 PROMPT 
237 72 

2 X)Y? 


TISSERAND 
42, Av. du Gai de Gaulle 
77500 CHELLES 


239 GTO 84 
248 - 

241 CHS 
242 KEO 15 
243+LBL 84 
244 KEQ 13 
245 “NERE” 
246 PROMPT 
242 76 

248 STO 81 
249 X)Y? 
258 GTO 85 
251 - 

252 CHS 

253 KEQ 15 
254 GTO 85 
255+LBL 13 
256 "AGE de YOTRE” 
257 AYIEX 
258 PSE 

259 RTH 
268eLBL 85 
261 “CHECK-UP 0/H° 
262 KEQ 18 
263 K?Y? 
264 GTO 86 
265 “AVEZ-VS G/N° 
266 AYIEX 
267 PSE 

268 “DU CHOLESTEROL” 
269 KEQ 18 
278 XrV? 
271 GTO 86 
272 “COMBIEN ?° 
273 PROMPT 
274 2 

275 - 

276 x)87 
277 SF 63 
278 x(8? 
279 GTO 87 
288 8 

281 * 

282 KE 15 
283+LBL 87 
284 “CERTAIN” 
285 FS? 688 
286 °+E” 
287 “+ 7° 
288 XEQ 18 
289 xr#Ÿ? 
298 SF 84 
291 GTO “1 
292e+L8L 86 
293 SF 84 
294 GTO *1 
295+LBL 18 
29% AÛH 

2927 PROMPT 
298 AOFF 
299 RSTO Ÿ 
398 “0” 


381 ASTO x 
382 CLA 
383 RTK 
384+LBL 11 
305 “ETES-VS 0/KN° 
386 AVIEN 
387 PSE 
368 RTH 
389+LBL 12 
318 “COMBIEN de” 
311 AVIEN 
312 PSE 
313 RTH 
314+L8L 15 
315 RCL 81 
316 XC0Y 
317 - 

318 RCL 81 
319 

326 ST+ 82 
321 RTK 
322eLBL “1 
323 58 

324 RCL 18 
325 X)Y7? 
326 GT0 688 
327 70 

328 XC)Y 
329 - 

338 ENTER 
331 LASTE 
332 RCL 62 
333 * 

334 + 

335 GTO 89 
336+LBL 88 
337 RCL 82 
338 « 

339 ENTER 
348 ENTERT 
341 188 
342 XCDY 
343 - 

344 2 

345 / 

346 + 
347+LBL 69 
348 STO 81 
349 RCL 18 


354 STO 82 
355 LASTX 
356 RND 
357 DATE 
358 XC2Y 
359 BATE+ 
368 INT 
361 STO 84 
362 XEQ 14 


363 168 

364 « 

365 INT 

366 STO 85 
367 XEQ 14 
368 18888 
369 + 

376 STO 86 
371 °/" 

372 ASTO 87 
373 FIX 8 
374eLBL D 
375 LE: 
376 ARCL @4 
377 ARCL 67 
378 ARCL 65 
379 ARCL 67 
388 ARCL 86 
301 AYIEN 
382 STOP 
383 GTO 81 
384+LEL 14 
385 LASTX 
386 XC)Y 
387 - 

388 RTH 
389+LBL 61 
398 24 

391 RCL 682 
392 « 

393 INT 

394 FIX @ 
395 a * 
396 ARCL X 
397 *+ HEURE” 
398 2 

399 xX(=Y? 
408 “+S” 
481 AYIEN 
482 STOP 
483 RCL 81 
484 RHD 

485 "SOIT: * 
486 ARCL x 
487 “+ ANS” 
488 AVIEN 
489 STOP 
418 FC? 81 
4ii CTO 682 
412 XEQ 83 
413 “IBEAL=" 
4i4 ARCL 63 
415 °HKCS!” 
416 AVIEN 
417 STOP 
418+LBL 62 
419 FC? 62 
428 GCTO 84 
421 XEQ 03 
422 “SOMME IL=9.H1" 
423 AVIEN 
424 PSE 
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425+LBL 84 

426 FC? 64 

427 GTO 65 

428 XEQ 63 

429 “VOIR TOUBIB" 
438 AVIEN 

431 PSE 

432eLBL 65 

433 FC? 63 

434 GTO 86 

435 XEQ 63 

436 “FAIRE REGIME” 
437 AVIEN 

438 PSE 

439+LBL @6 

448 RCL 81 

441 RCL 18 

442 - 

443 SORT 

444 RHD 

445 1 

446 xCY? 

447 XOY 

448 R.D.V. DANS * 
449 ARCL x 

456 “+ AN” 

451 1 

452 XCY? 

453 *+S" 

454 AYIEW 

455 STOP 

456 GTO 88 
457+LBL 63 

458 “UH CONSEIL * 
459 AVIEN 

468 PSE 

461 RTK 

462 .END. 
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JEAN-PIERRE TOYRE 
PPC-PC 131 


CHERS AMIS 


VOICI LES FETES DE NOEL 
GUI APPROCHENT , AUSSI 
J'AI PENSE 6 UH PETIT 
PROGRAMME DE DETENTE 

5 IMPOSE 

J'AI EX UTILISANT LES 
MAIGRES FONCTIONS GRA- 
PHIQUES DE LA HP+KFONC- 
TIONS+INPRIMANTE ,CREE 
UN JEU DE CARACTERES 
HYEROGLIPHES 
TOUT DROIT TIRE DU TRES 
BEAU LIVRE : 

PRINCIPES GENERAUX DE 
L'ECRITURE SACREE EGYP- 
TIENNE. 

MAIS TREYE DE PLAISAN- 
TERIE PASSONS 4 LA TRA- 
DUCTIONH LETTRE À LETTRE 
DE CE TETE. 


AMITIES 


LA 


+ 4 — 
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TRADUCTION 


HYEROGLIPHES 


3 COLONNES 


++ SA 
gp x 
sh + PV Je 
sa 2 rm 
p + = LE x 
Fa 20 sh" 
= y 
ST ET 
ce 4 nn 
nn Tr 
En Pr 
k = 5: LL 

M D % 
x + k °° 
SEX y 
nn —- nu 
æ sf 4% 
LE A+ 
Hi — Héouee 
ni LR 
ane Th 25 
5 COLOHMHES 


Sas 


HAUVRISE ESECUTION > PAR MAUVAISE 


a 
PA ES 
BONNE EXECUTION 
Sn 
SEEN 


EXECUTIOH,. 


J'ENTENDS QU'IL PEUT Ÿ 
AVOIR DECALAGE DES CAR- 
ACTERES . 
AUSSI RECOMMENCER ER 
FAISAXT : 

GTO 

KEG EG 

+5°J°DE TEST 
CAR IL Ÿ A UHE EOGUE 
QUE JE NE TROUVE PRE 
DANS LE CUMUL DES CARAC- 
TERES AU NIVEAU DU REC- 
ISTRE TAMPOR DE L'IMPRI- 
MANTE . 





CODER EN HIE ROGLYPHES 


81+LBL "EG" 
82 CLRG 

83 CLST 

84 CF 88 

85 SF 2 

56 PRBUF 

87 “3 OÙ 5 CÜL?" 
98 PROMPT 

49 STO &i 

18 3 

il X=Y? 

12 SF 88 

13 5F 27 
14+iBL 64 

15 RCL 8i 

16 ST0 &4 
i7+LBL Gi 

18 DSE @4 

19 7 

28 À 

21 STO 68 

22 “LETTRE 7" 
23 PROMPT 
o4eLBl "A" 
23 CLA 

26 “xG)88"E" 
èt àEG 82 
28+LBL *B" 
23 CLA 

38 “+@R'++" 
31 *Eû 62 
J2+LBL “C" 
334LEL "à" 
34 CLA 

35 “repppef” 
36 XE8 82 
37+LBL “D" 
38 CLA 

39 “+al ac” 
4 XEG 42 
di+iBl "E* 
4? CLA 

43 “alaaati" 
44 XER 82 
45+LBL *F* 
46 CLA 

4? “selaaca" 
48 $EG 482 
49+LBL "6" 
sû CLA 

51 “'r\Lr'* 
92 KEG 82 
93+LBL “H* 
54 CLA 

99 “Hhenctt" 
56 EG 82 


J7+LBL *“I" 
58 CLA 

99 “++Hfi" 
68 XEG 82 
61+LEL “J" 
6è CLA 

63 “:iPaavx" 
64 XEQ 84 
69+LBL *K* 
66 CLA 

67 "#@'pxll" 
68 XEG 82 
69+LBL *L* 
#8 CLA 

ê1 “añiT TT 
Te KEG 62 
F3+LBL “H" 
té CLA 

F3 "GOECoP"" 
fé RER 62 
fi+LBL “NH 
78 CLA 

F9 “Prxsxsge 
88 xEG 84 
8ieLBL “Q 
82eLBL “Ü* 
83+LBL *Y* 
G4+LBL “H* 
85 CLA 

86 “:C0i168" 
82 4E8 62 
88+LBL *P* 
89 CLA 

38 “+iiiti 
31 *EG &ë 
S2+LBL *E" 
93 CLA 

Sd "XIE IE" 
95 kEG 62 
Sé+LBL *S" 
37 CLA 

98 “++£ef" 
99 XEG &ë 
1A8+LEL *T" 
141 CLA 

182 “ar iTa" 
183 XE8 82 
14deLBL "4" 
185 CLA 

186 “ebcAcée" 
147 XE8 82 
188+LBL “Y* 
149 CLA 

118 “xaaéxs8" 
iii XEG 6ë 


112+LBL "2" 
113 CLA 

114 “xxhxixx" 
115 XEQ 82 
116eLBL “ES” 
117 CLA 

118 ** 

119 XEG 62 
128+LBL *FE" 
ai CLA 

122 “+exp't)" 
123 XEQ 82 
124+LBL “HO” 
125 CLA 

126 “Fdl+,"" 
127 REG BE 
128+LEL 82 
129 8 

138 ENTER 
131 ENTER 
132+LBL 83 
133 ATOX 

134 BLDSPEC 
135 DSE 84 
136 GTO 83 
137 ACSPEC 
138 AEG B4 
139 8 

14f ACCOL 
141 ACCOL 
142 GTO 81 
143+LBL &4 
144 4 

145 RCL 84 
146 4=8? 

147 GTO 85 
148 RTH 
149eLBL 65 
158 F5? 68 
151 PRBUF 
152 GTO 68 
153 END 


Kite 
x 
PR e: 
mn … 
HRROS 
JR 


ALPHABET 

ESPACE 

FERME 

HOME 
SI VOUS DÉSIREZ 3 COLCH- 
HES , TAPEZ SUR 3. 
DEN POUR 5 COLONHES. 
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XA & A% 


La presiere de ces routi 
nes pernet de coder un 
nonbre sous forme de ca- 
racteres. 

A HN? INTRODUIRE LE NOM - 
BRE. 

A NOM introduire le non 
BU NOMBRE (SES REFEREN - 
ces ?) en deux caractere 
Ex: ab, ca etc... 


La deuxiene routine deco 
de une chaine alphabeti- 
auee, en conseryant Îles 
deux preniers caracteres 
come nof. 


Le but initial est de 
coder, pour conservation 
des donnees confidentiel 
les. 


gieLBL “XA" 
CLRG CLST “H?* PROMPT 
how?" AON STOP AOFF 


254 


11+LBL 88 
RDH STO Ÿ Rt MOD 
xEQ 81 ST-Ÿ KO L 
ST/ Y XCY? GTO 88 


KT 


23+LBL 81 
SG X BEEP XTOR DSE K 


e8+LBL 82 
RTH 


39+LEL "AK" 
ALENG 2 - 8 


35+LBL 43 

-{ AROT RDH ATOX 
DSE X FIX 8 + DSE Ÿ 
FS? 39 GTO 2 254 * 
GT0 83 


49eLBL 82 
“+= ARCL X PROMPT 
EME 


JPE 





n'?i page 24 


Aux membres du PPC.PC; 
Aux membres étrangers; 
Aux ingénieurs HP... 


I1 s'est toujours trouvé des drôles pour désigne: 


1a HPAI et prôner l'incomparable qualité des machines 
japonaises. Leur principal grief tenait à sa lenteur: 


on ne pouvait pas créer de jeux d'action. Le seul dont 
j'ai jamais ouï parler était d'une lenteur telle qu'on 
eût fini par leur donner raison. Je repensais il y a 
quelque temps à ce problème, et me demandais s'il n'y 
avait pas de soiution. J'en trouvais une: le jeu 
existe et sa difficulté est honorable (même sur une 


machine non accélérée). Il s'appelle SPINVS. 


11 s'agit de protéger le vaisseau dont vous avez 
les commandes, contre un tir continu de missilles. Pour 
des raisons inhérantes à la nature du matériel employé, 
vaisseaux et missiles ne se déplacent qu'horizontalement 
et sur les trois niveaux comme le montre la figure suivante. 


@æ—— sens de déplacement des missiles 


sens de ui —— _— — — 
déplacement D ra ee an 
du joueur 
I2 missiles répartis 
sur 5 niveaux 
position du 
joueur non visualisée 


La position du vaisseau est commandée par les touches 


de codes utilisateur 81, 82 et 85. Elles servent à atte nûre 


respectivement les positions supérieure, moyenne et inférieure 


JPC n'?l pase 2f 


JPC 


Pour rendre le jeu plus attrayant, on se gardera de passer 
de l'une des positions extrèmes à l'autre; et on appuiera 
le plus rapidement possible sur les-dites touches lorsque 


la nouvelle configuration spatiale apparaîtra. 


Avant d'exécuter le programme SPINVS, il faudra 
créer un fichier de type de données de I registre, et 
prénommé RAN#. Toute interruption du sus-dit programme 
oblige à l'exécuter entièrement de nouveau. Le jeu se 
termine au bout de 80 boucles par l'affichage de NONEXISTENT 
mais en cas de destruction du vaisseau par un missile, on peut 
continuer la partie en appuyant sur la touche R/S. Un score 
est aloké affichés il doit être le plus faible possible. 


J'ajouterais qu'il est posible de modifier le prgm:, 
et de ne pas employer le module XFCT. On foxmera alors une 


boucle du type: LEL 86 
AVIEH 
ASTG ÎE 
ASHF 
ASTO fi 
AREL 12 chaine quelconque de 5 
ARCL 18 


(on stockera en RI2 une 


ARC 11 caractères.) 


ASHF 

ARCL INDE 

FRE PE 
GTO @6 


(X= (RAN) x 3) 
ATTENTION: le sens de déplacement des missiles est mainte ant 
inversé er se fait de gauche à droite. 

Je lance un défi à tous les programmeurs spécialistes 


en microcode pour qu'ils transcrivent ce prog:amme et 


l'améliorent à leur guise. 


d.Jd. LUKEAU 
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GENERATEUR DE NOMBRES ALEATOTRES 


FONCTION GAMMA 


METHODE DU SIMPLEXE SIMPLISTE 


Chers confreres, 
voilà de quoi aliaenter la rubrique "HP15": 
I Générateur de nombres aléatoires. 


La foraule utilisée est y=FRAC(ax + b); où 
a=1.574.352,261 et b=0,1017980433, Elle permet de 
trouver la senence donnant zéro. D'autre part, la 
séquence ST0 RAN, RCL RAN transforme un entier en 
décimal: 123.456.789 --} 0,123456789. D'où le 
prograsse donnant le premier chiffre d’un entier: 
5TO RAN 

RCL RAN 

10 

j 

INT 


IT} Fonction Gaama "x!": 


On peut calculer n! jusqu'à n=139 grace à 
l'égalité n'= 2*n/S@R(PI)f(n/2)!#t{n-11/2)1!, 
ainsi obtient-on 100!= 9,332421342410"157 (la 
valeur exacte est 9,332621544#10"157), 

On peut aller encore plus loin à l’aide d’une 
foraule plus générale: 

{pxtp-1)'=(1/S0R(2PI))* (p-1)p*px+p-0, 54x14 


1: 
{ 
1 
1! 
1 
1 
: 
1 
1 
1 
1 
1 
1! 
1 
: 
{ 
: 
3 


(DANIEL SAADA) 
(DANTEL SAADA) 
(DANIEL CONNAN) 


fé+i/p}l...{x+(p-1}/pl!, p étant un entier)=2. 


Cordialement, 
DANIEL SAADA 


METHODE DU SIMPLEXE SIMPLISTE 


La méthode du siaplexe est une  #éthode 
sathématique d'optimisation servant à obtenir une 
valeur amaxisus où niniaua d'un certain facteur, 
par exeaple, un bénéfice Raxiaum, où une perte 
ainiaun, La méthode utilisée ici est celle de 
l'éléphant dans le magasin de porcelaine: entrer 
en force et observer. 


Au départ, voici le matériel disponible: une 
calculatrice HP ISC qui serait bien heureuse 
d'être utilisée plus subtilenent et le nuaéro 807 
de Science et Vie traitant du bénéfice naxiaur à 





obtenir en vendant n patisseries avec telle 
quantité de matière presière, sucre et chocolat. 
Les données sont présentées sous forae de tableau: 


quatre  Soufflé Mousse té 
quarts choc. choc. 
Sucre 40 20 50 2000 
Choc. 10 28 20 1000 
Prix 20 20 40 B 


{B est le bénéfice à maximiser) 


Après la déronstration mathématique et le 
programe basic Apple Il, le résultat est: 
Bénéfice maxieua: 1440F obtenu en vendant 10 
soufflés et 36 nousses. 


C'est là que se trouve le joint: un tableau c'est 
une matrice, et le HP 19C est équipé pour traiter 
ce genre de calculs. 


J'essaie donc le calcul suivant: 


40 20 0 2000 

10 28 20 1000 

20 20 40 1440 
NATRICE A MATRICE B 


F Result € 


Bprès stockage de ces valeurs dans les matrices: 
REL MATRIX B 

RCL MATRIX À 

Diviser -} 3-1 

REL € 0 

RECL € 10 


REL C 34 Miracle! £a narche.., 


Le principe étant trouvé, il ne reste plus qu’à 


l'appliquer, procéder par encadrement ou 
itérations à partir d’une estimation quelconque 
de B. Ceci peut se prograaner: 

Q0t F LEL À 022 670 B 

002 REL MATRIX B 0253 

003 RCL MATRIX À 024 ENTER 

004 Diviser 625 1! 

005 1 026 RCL g B 

006 ENTER 027 1 

007 1 028 + 

008 REL g € 029 # PAUSE 

009 g TEST 2 030 3 


010 GTÜ 631 ENTER 

011 2 032 i 

012 ENTER 033 ST0 g B 

013 1 034 REL MATRIX D 
014 RCL g C 635 STO MATRIX À 
015 q TEST 2 036 GT À 

016 670 B 037 + LEL B 

017 3 038 3 

018 ENTER 039 ENTER 

019 1 040 1 

020 REL g € 041 RCL g B 

021 g TEST 2 042 q RTN 


Passer en aode RUN: 


Matrice 4 Matrice D B € 

40 20 39 40 20 50 2000 résultat 
10 28 20 10 28 20 
20 20 49 20 20 40  Bénef. approx.=1634 


FA --> 1635/1b36/1837/16358/1639/1640/1640= B max. 


RCL MATRIX C € 3 ! 

REL € -2,13  -08 {(Pratiquesent zéro) 
REL € 10 dix soufflés 

REL € 36 trente-six Rousses, 


Cossentaires: la aatrice À est dupliquée en D 
pour être aise en réserve à cause de ja 
décoaposition LU lors de la division. 

Le bénéfice saxiaur est atteint lorsqu'un terme 
du résultat de la division des satrices devient 
négatifs on ne peut pas concevoir de produire ou 
de vendre -n patisseries, c’est à quoi servent 
les tests G TEST 2. 

On peut aussi introduire la valeur d'essai en 
sode RUN, soit par exemple: 1629 valeur d'essai, 


1629 ENTER 3 ENTER 1 ST0 6 B. 


J'ai bien conscience de la rusticité de la 
géthode enployée, mais je ne deaande qu’à 
enregistrer les critiques constructives que ne 
devraient pas aanquer de ae faire parvenir les 
esprits éclairés. 


Merci d'avance, 
Daniel CONNAN 
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POLYNOME CARACTERISTIQUE, 
INVERSION DE MATRICE, POUR HP75 


Ce programme calcule le polynôse caractéristique, ou l’inverse d’une satrice carrée dans le 
corps des réels. 


La aéthode utilisée repose sur l’énoncé suivant: 
Soit K un corps cosautatif et À une matrice carrée d’ordre n sur K. 
On définit les suites (Ai) {xi) (Zi) pour i variant de 1 à n, telles que: 
AaA, s-tr À , LA, tasln (où In est la aatrice Identité d'ordre n) 
et Ai 4.2; 
Ou =-[1/(i+1)7 tr A4 
Lin = CPELAN In. 
Alors, 
=} PaQ= (in Cd to ta LT NT 1 polynéae caractéristique de À 
-} In=0 
=} ous (A7 Con A) où Can A) est la transposée de La comatrice de À. 


Nota: tr Al signifie "trace de la matrice À". 


Pour des raisons basserents techniques, la déaonstration ne peut figurer ici, Rais ceux qui le 
désirent peuvent se la procurer au Club contre 5 F en tisbres. 


Remarques sur le prograaae: 

- La taille des natrices est ici liaitée à 10410, aais il vous est possible de la modifier en 
changeant la ligne 20. 

- L'option "Polynône caractéristique" (1) vous donne aussi Le déterninant de la matrice: en 
effet, det(4) est le coefficient du terse de degré 0 dans le polynôme caractéristique, c’est à 
dire la preaière valeur qui appparaït. 


Exemple: 
Î 2 i 2 Î 
ÿ 2 Î 2 l 
A=1|0 û 3 2 Î 
0 û Ô 4 l 
û û ÿ 0 ÿ 


Le progranne met 12 secondes pour les calculs avec une aatrice 545, 3°15" pour une aatrice 10t10 
PA(X1=120 - 274 X + 225 É-g+ist- E=t1-X) (2-1) (3-41 (4-X) 5-11], donc det{A)=120. 


ns Ô Ô 0 
1/2 -5/30 -5/30 -1/30 
0 1/3 -5/30 -1/30 
0 0 1/4 -1/20 
û û 0 1/5 


Tv 
# 
22 ST 


Frédéric BARNAUD 


PROGRANME NATRICES 


10 DELAY 1.5 @ INPUT "Taille de La gatrice : "iN 

20 SHORT H(10,10),4(10,10),2(10,10),D(10,10),5(10) 

30 FOR 1=1 TO N @ FOR J=1 TO N € Z{1,d)=0 

40 IF 1=J THEN D{I,1)=1 ELSE D(1,9)=0 

90 NEXT J & S(I)=0 € NEXT I 

60 FOR 1=1 TO N @ FOR J=1 TO N @ DISP "AL"; STR$(1);", "3; STR#(J);"1= "3 @ INPUT ""sA(],d) 

10 M{I,dI=A(I,d}) & NEÂT J & NEXT 1 

86 FOR K=1 TO N-1 

90 FOR 1=1 TO N @ S{K)=S(K)+M(1,1) 8 NEXT I 8 G(K)=-5(K)/K 

100 FOR I=1 TO N @ FOR J=1 TO N 8 Z(I,JI=M(1,J)+S{(K)4D{I,J) @ NEXT J & NEXT I 

110 FOR 1=1 TO N 6 FOR 9=1 TO N & W=0 € FOR T=1 TO N 8 W=H+AUI,T)#ZIT,J) @ NEXT T @ M(I,J)=N 
120 NEXT J @ NEXT I 

130 NEXT K 

140 FOR I=1 TO N & SEN)=S(N)+MCI, I) @ NEXT I R S(N)=-GNI/N 

150 INPUT "poly car.(1) ou inv.(2}:"3B 

160 IF B=1 THEN 180 

170 IF B=2 THEN 210 ELSE 150 

180 DISP “Polynome caracteristique : 
190 FOR I=N TO 1 STEP -1 & DISP (-L)*NSS(T) 5 "AS": STRSCN-I)3; @ INPUT ""sA$ 8 NEXT I 

200 DISP (-1)%N;"X* "3: STRSUN); € INPUT “'s5A$ & GOTO 150 

210 IF S(N)=0 THEN BEEP € DISP “Matrice non inversible * € 6070 150 

220 FOR I=1 F0 N 8 FOR J=1 TO N € DISP “inviA)[';STR$(I);", "5 STR$(J);"]="5;-2{1,d)/S{N); 
230 INPUT “";A$ @ NEXT J @ NEXT I € GOTO 150 
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FONCTIONS DE MANIPULATION DE CHAINES 


Que de tenps passé sur l’assesbleur du 71 pour le 
petit résultat que voici! Un LEX de 117 octets 
cosportant trois fonctions alphanuaériques. Jde 
leur ai attribué arbitrairement les 
IDentificateurs 92,001 à 92,003, en attendant que 
nous ayons un numéro d’ID bien à nous. 


REV$ (92,001). 

Cette fonction inverse les caractères d’une 
chaine alphanunérique (REV${ABCD’)="DCBA’). Pour 
ce faire, je n’ai pas eu beaucoup de #al, la 
routine était toute prête dans le système 
d'exploitation (RON système), 


HIGH$ (92,002). 

Cette fonction est très pratique pour les 
possesseurs d’une interface vidéo: elle 
additionne 128 à tous les caractères d’une chaîne 
alphanuaérique. C’est la mére fonction que HIGH$ 
du Visicalc-HP75. 


RED$ (92,003). 
Supprine tous les blancs (caractère 32) à la fin 
d’une chaîne. 


Enfin, j'ai écrit un désassesbleur en basic 
{9ko), qui pour des raisons de teaps et de place 
ne sera publié qu’au mois de Mars. 

de le tiens éventuellement à votre disposition. 


Heureuse Programmation. 
M, MARTINET 


Voici le désassesblage d’une des routines 
utilisées dans le LEX (POPIS et REVS), pour ceux 
qui veulent aller plus Join. La routine CNFLCT 
n’est pas désasserblée car c’est un point de 
retour. En effet lorsque la "Chose" se trouvant 
sur Ja "Math Stack" n’est pas une chaîne 


alphanuaérique, la routine POPIS renvoie le 
contrôle à la boucle principale (Main Loop). 


1R38E REVS  GOSBVL POPIS 


14395 E=0 
18398 B=A A 
1H39À 5B=0 
1R39D B5RB 
1B3AQ B5RB 
1H3A3 CDIEX 
1B38È C=C+B A 
1B3A8 C=C+B À 
1BSAÀ Di=C 
LR3AD CDOEX 
1B3B0 D=€ À 
1E3B2 25B=0 

GOYES REV3 
1B3B7 GONC REV? 
LBSBA REVI Di=D1- 2 
1R3BD A=DATO B 
13C0 C=DATI B 
1B3CS DATISA B 
1BSC6 DATO=C B 


18309 REV2  DO=D0+ 2 
IBSCC REV3 B=B-1 À 


LR3CE GONC  REVI 
1B3D1 Di=Dt- 16 
1H3D4 C=D À 
18306 D0=C 

1B3D9 RTN 


0BD38 POPIS A=DATI 7 


GBD3C P= û 
OBDSE A=A+] P 
OBD41 A=A+A B 
0BD44 2440 B 
GOYES Cnfict 

0BD49 ASR  K 
OBD4C BSR  N 
0BD4F DI=D1+ 16 
GED52 RTNCC 


GBD15 Cnflct GOVLNG CNFLCT 
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LEX  ?LEXTEND' 
ID #50 

MSG 0 

POLL 0 


ADHEAD EQU #181B7  Ÿ Add String Header. 

D=4VHS EQU  #1A460  # Set DA) to AVMEMS. 

EXPR EQU  #0F23C $ Function Return. 

POP1S EGU  #0BD38  # Pop ! String Off Math Stack. 

REVS EU  #1B38E  # Reverse Characters In À String On Stack, 


ENTRY f Etiquette de début d'exécution de la fonction HIGH$. 
CHAR { Fonction exécutable sans restriction. 

ENTRY 

CHAR 

ENTRY 

CHAR 

KEY ©HIGH$’ 4 Non, Les noms doivent-étre classés par ordre alphabétique. 
TOKEN 1 

KEY  ‘RED$' 

TOKEN 2 

KEY  *REVS? 

TOKEN 3 

ENDTÉT 


NIBHEX 411 Ÿ Un seul paramètre alpha pour cette fonction. 
GOSBVL REVS { Entrée de REV4. 
GOVLNG EXPR f Sortie de REV$. 


NIBHEX 411 Ÿ Ider ci-dessus. 
CDIEX 

Di=C 

CROEX 

GOSBVL POP1S 

780 À 

GOYES HI2 

LCHEX 80 

B=C 
C=DATI 
C=C+B 
DATI=C 
Di=D1+ 
A=4-1 
A=k-1 
7A4O 
GOYES 
AROEX 
DI=A 
GOTO Ÿ Sortie de HIGH$. GOVLNG EXPR entrainait 3 octets supplésentaires. 


u 


LED D D r5 © 1 © 





è 


M 
er 
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NIBHEX 411 

RE GOSBVL POPIS 1 Entrée de RED$. 
LEHEX 20 t Idem [LCASC * ?1. 
BCEX B 

RE  C=DATI B 
BIC B 
GUYES RE2 
DI=DI+ 2 
A=A-1 À 
A=A-1 À : 
240 À TE, D F 
GOYES REI ” A ET 

RE2  GOSBVL D=AVHS i e. Re 
EDIEX À ete F 


D=C A 





C=C+A À 


RI=C RS) | _* 


ST=Q 0 \ 
GOVLNG ADHEAD  # Sortie de RED$. \a 








END 
NE 





e 
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do 


Fargattons, foraattons ! 


Beaucoup d’entre vous se demandent si le 
programme "EDTEXT" du aodule Forth/Assesbleur et 
le module "Editeur de texte" ne font pas double 


erploi. de répondrai: si ! 


En effet, 
près: 
- L'éditeur de 


ils sont identiques, à trois détails 
texte comporte en plus une 
commande "Aide" (Help pour ceux qui n’ont pas la 
chance d’avoir Fralex}). Celle-ci envoie à 
l'affichage la liste des commandes, ainsi que les 
paramètres éventuels. 

- L'éditeur de texte a, en plus, une commande “F” 
(pour ceux qui n'ont pas Fralex aussi) qui 
signifie "Formattage". C’est la raison pour 
laquelle le prograsme "EDTEXT" fait environ 7 Ko 
dans le s#odule Forth, et 13 dans le aodule 
"Editeur de texte", Bon d’acord, la différence 
est de taille. Mais c'est pour ça que je vous 
propose aujourd'hui un progranme destiné à 
cosbler cette lacune. 

- La troisiène différence, et non la #oindre, 
réside dans le prix: il faut débourser 1800 FF 
{environ) pour le aodule Forth, et à peu près 
1000 pour l'éditeur de texte. Payer 1800 Francs 
uniquement pour écrire de la prose (ou des vers), 
cela fait un peu beaucoup. 

Conclusion: ces deux modules font double emploi, 
mais ils ne s'adressent pas du tout à la mème 
clientèle. 


Alors, pour vous qui n'avez que le module Forth, 
j'ai réalisé ce programre qui vous dispensera 
d'acheter le #odule Editeur de texte pour 
foraatter votre prose. 

Revenons sur terre: non programme ne prétend pas 
se comparer à l'option correspondante de EDTEXT. 
Pour utiliser celle-là, il faut inclure dans le 
texte des commandes telles que “na, “ju, *sk5 par 
exesple. Il y en a beaucoup d’autres. Cela peraet 
bien des fioritures, bien des acrobaties. Mais le 
texte n’est pas iaprimable tel quel, Il faut 
utiliser la commande "F", qui refera tout le 
travail chaque fois que vous voudrez voir les 
choses noir sur blanc. 

Or, il y a de cela quelques aois, il fallut faire 


la raquette de JPC. Et iapriser des articles sur 
iaprimante, Frédéric Poupon n'étant plus à Paris, 
plus nersonne ne savait faire marcher 50n 
grogramae FORNTEIT, Alors, j’en ai fait un, plus 
facile à utiliser, plus siaple, et qui ne 
nécessite pas de lecteur de cassettes pour 
travailler. Le résultat füt "FORMAJPC", À peine 
plus d’un Kilo-octets. Le foraattage en 
douceur... Depuis, c'est grace à lui que vous 
avez des textes bien cadrés. 


Quels sont ses avantages ? 

- La siaplicité d'utilisation! voir plus loin. 
(NB: le principe n’est pas sans rappeler celui du 
traitement de texte intégré dans le HP110). 

- La souplesse: vous pouvez foraatter votre texte 
petit à petit, contrôler ce que vous faites, 
corriger des erreurs et relancer le formattage. 
Vous n'étes pas lisité ! 


- La rapidité: ce texte a pris environ  {éû 
secondes ! 
- Cumulé avec EDTEXT (fonctions de recherche et 


de remplacement), es possibilités sont 
quasi-infinies. Exerple plus bas, 


- Dernier avantage: vous pouvez travailler sur 


votre texte déja formatté, ce qui autorise les 
plus belles acrobaties. 

Utilisation: 

Dans votre texte, entrez le caractère "\" 
(assigné à ‘"f/") coane prenier caractère de la 
zone à  forsatter (début de ligne). Entrez 
également "\" en fin de la dernière ligne à 


formatter pour indiquer l'arrêt, 

Gi vous désirez centrer une ligne, mettez 
conte premier caractère, Ca suffit. 

Sortez #aintenant de EDTEXT, faites RUN FORMAT, 
et répondez le nom du fichier que vous voulez 
formatter. Donnez ensuite le noabre de caractères 
que constitue une ligne. Par exerple, ce texte 
est formatté avec 50 caractères par ligne. 


HAN 


Maintenant, imaginons un exenple plus poussé: 
vous désirez laisser 5 espaces en tête de chaque 
paragraphe. Rentrez votre texte, en prenant soin 


de m#ettre chague paragraphe entre "/". Une fois 
ceci rentré, insérez à chaque début de paragraphe 
(après Ile "\*) 5 caractères assez peu utilisés, 
par exemple CCCIT,  formattez le texte, et 
repassez sous EDTEXT: utilisez alors la commande 


MLR/\SCTECE/ /" qui se lit: de la fère à la 
dernière ligne, remplacer la chaîne "CLCCU" à 
chaque fois qu'elle apparaît en début de ligne 
par à espaces. -Voilà, vous avez vos espaces en 


début de paragraphe. Sinple non ? 


de vous laisse méditer sur ces paroles hautenent 
philosophiques, et je vous dit: "A Bientôt” ! 


Pierre DAVID 


Histoire de STARTUP 


Voici, à titre d’astuce, un STARTUP qui ce trouve 
en persanence dans mon 7: il donne l'heure en 
vous disant bonjour, ou bonsoir s'il est plus de 
19H, car un "Bonjour, il est 21H18" ne fait pas 
chiche... 

STARTUP ** Bon jour Bonsoir C8#(TINE}68400) 101,718", 
il est *RTIMESC1,214"H'&TIMESCA, 514? .°" 


Serge VAUDENAY 


Recreation ! 


Chers Anis, 
Voici un petit programme récréatif pour le HP7IE. 
C'est un petit jeu que j'ai pratiqué dès que j'ai 
été en possession d'une TI54, ce qui fait un 
aoment déjà. 


Je ne a’en suis pas lassé, donc je le juge digne 
d'interét (en plein accord avec noi-nène),. Que 
fait-il ? 


Il vous propose une suite de nombres que vous 


devez réintroduire dans l’ordre, et signale les 
erreurs en vous demandant de reconnencer, après 
avoir ‘"relisté" la suite de noabres. Le tout en 
#oins de 500 octets, 


Vous a’excuserez pour non français peu agréable à 
lire, but it's tiae to bed ! 


fu plaisir de vous lire, 
Jean-Pierre BONDU (P#33) 


L'Octet du Graal 


Ces deux routines peraettent d'obtenir rapidement 
la forae du codage en mémoire d'une chaine de 
caractères, ou vice-versa, On prendra soin, si 
nécessaire, de formater B$ au double de la 
longueur de À$ avant d'appeler CO), et à la 
moitié avant d'appeler DECOD. 


Vous avez s#aintenant une paire de lunettes pour 
identifier les dragons que vous croisez au fond 
du HP71 dans votre pieuse Quéte du Graal. 


Heureuse Programmation ! 
Pierre LANELOIS (P#87) 


Déterminant et systèmes 


Il y à de cela { an, j'ai du faire un programe 
de calcul de déterminant sur HP-97, 

Il m'a donc fallu inventer une nouvelle méthode 
de calcul à cause de sa faible puissance. Ce que 
je vous présente aujourd'hui est un progran@e 
pour HP-71 utilisant cette méthode. Ce programme 
terminé, je l'ai essayé avec des déterminants 
d'ordre 19, et j'ai constaté, d'abord horrifié 
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qu’il gettait 30 secondes pour effectuer le 
calcul, J'ai donc entré le joli programme 
récursif de Pierre David dans le but d'aller plus 


vite, et quelle fut aa surprise devant 5a 
lenteur: j'ai arrêté ma aachine au bout de 30 
minutes, et j'ai calculé qu'il aurait ais plus de 


15 jours à faire le mème calcul !!! 

Bel exepie de programae récursif ! 

J'ai donc jugé utile de publier on progranme. de 
vous épargnerai la déaonstration aathématique de 
ma #éthode de calcul, je dirai sisplesent qu'elle 
ne fait que ’réduire* un déterminant d'ordre N à 
un déterminant d'ordre N-i équivalent, et ainsi 
de suite, jusqu’à ce que l’on ait un déterminant 
d'ordre 1, qui est facilement calculable... 

Pour utiliser ce progranse, faites RUN ou CALL 
DETIM(,),ordre,D)8D si votre déterainant est déjà 
dans M,) ou tout autre tableau, d’ailleurs. 

Vous trouverez égalesent le SUB SYS qui vous 
résoudra un système de N équations à N inconnues 
en un rien de teaps. 


ex: +Y=4 

3X-Y=0 
Faites CALL SYS et répondez 2 a “Nb d’inconnues”. 
Entrez ensuite, dans l'ordre: 1 1 43-10et 


attendez la réponse. 
Pendant que j'y suis, je dirai un not sur la 
récursivité du FORTH de 1'HP-71. 
La oriaitive SMUDGE existe bien, mais il faut 
savoir qu'elle n'est pas iamédiate sur le 71: la 
fonction factorielle se définirait ainsi: 
: FACT [ SNUDGE ] DUF 

IF DUP 1- FACT t 

ELSE f+ 

THEN C SNUDGE ] 


3 
Ceci est 


réserves: 


toutefois à utiliser sous toutes 
il faut faire attention de ne pas faire 
déborder la pile de retours, ce qui pourrait 
provoquer un Memory lost... Pour FACT, ce n’est 
pas trop grave, mais Ça le devient quand on veut 
calculer Un en fonction de on, avec 
Un=U{n-1)#+U(n-2)... 


A propos de FORTH, je signale que j'ai presque 
fini un aodule FORTH pour HP-41, et que je 
cherche des volontaires pour la chasse aux bugs. 
Ecrire à: Serge Vaudenay, 2 av Ardouin B3, 94420 
Le Plessis Trevise. 
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Ce nodule fera l’objet d’un prochain article. 


Serge Vaudenay, 


Graphique sur HP7IR 


Le HP-7{ est un excellent ordinateur de poche, 
Rais rien n’est plus énervant que d'utiliser (ou 
plutôt d'essayer d'utiliser) Ses capacités 


Le progratae GRAPH71 est le résultat de nonbreux 
essais infructueus,. Il est constitué de quatre 
parties! le dessin du graphique, ses 
#anipulations, une sorte d’éditeur et des 
opérations sur les fichiers, 


Bu début du progrange, il faut donner la taille du 
graphique en caractères, et répondre Qui ((01) à 
"Nouveau graphique ?" {en tout cas lors de la 
première utilisation }. Après quelques instants 
apparaît un écran noir avec ur point clignotant 
en haut et à gauche, Vous êtes en mode Dessin. 
Les touches utilisables sont : [0] et [1] qui 
effacent et allument le point indiqué par le 
curseur, les quatre touches de direction 
permettent de se déplacer d’une ligne ou d’une 
colonne, CSPCI pernet de déplacer le curseur à 
une colonne donnée selon sa coordonnée absolue, 
enfin  ÉEND LINEI permet d'accéder au œenu 
principal : D, Ed, F, Manip, et 0. 

D : Retour au mode dessin. 

Ed) : Menu de l'éditeur. 

F : Opérations sur les fichiers. 

M: Manipulations du graphique. 

G: Quit. Fin d'utilisation du progranne , S'il 
s'agit d’une interruption, tapez [1]; quand 
vous rallunerez votre 7{, vous serez en node 
Dessin, Sinon tapez [F], les variabies sont 
alors effacées, 


Option éditeur :"C,D,Ent,Ng.T,1,F" 
C : Pernet de régler le contraste avec 
flèches horizontales, 








































D : Retour au aode Dessin. 

E : Perset d'entrer un graphique par ses codes. 

Ng : Perset d'obtenir un écran noir. 

Ts Option pour changer la taille du graphique, 
et le conserve en partie, 

I : Ispression du graphique sur HP821624. 

F: Retour au senu général. 


Option Fichiers : *Sto,Rec,l,Pur,F 2?" 

S : Sauvegarde le graphique actuel dans un 
fichier Data, Les colonnes sont par ë. 

R : Rappelle un graphique en aéaoire. 

J': lapriee les codes d’un graphique 5e 
trouvant dans un fichier. 

P : Efface un fichier 

F : Retour au aenu général. 


Option Manipulation : 

C : Retourne le graphique. 

I : Inversion video. 

M: Transforae le graphique qui sesble être vu 
dans un miroir. 

R: Rotation du graphique. Fait tourner le 
graphique de À colonnes, vers la gauche. 

F : Retour au eenu principal. 


Resarque : Si au début vous voulez réutiliser un 
graphique en maésoire, répondez Non ([K]) à la 
question "Nouveau graphique ?". Vous êtes alors 
en aode fichiers, 


Anicalenent.., 
Vincent Herlicq (#81) 
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PROGRAMME "FORMAJPC" (foraatteur de textes) 


10 DESTRDY F$,N,D1,D?, 
20 INPUT Fichier: *:F$ 
30 INPUT ’Format : ?,’50";N 
- Le foraat par défaut est de 50 caractères. Eh oui, vous pouvez cospter, il y en a bien 50 
dans chacune des deux colonnes de JPC ! 
40 DI=NUN(*\") ! Vous pouvez le resplacer par CHR$(92) 
- Les caractères spéciaux sont facilerent changeables, 
90 D2=NUN (7) 
bû T=TIME 
- A titre indicatif, il peut être interessant de connaître le teaps écoulé. 
70 CALL FORMATIFS,N,D1,D2) 
BG T=TINE-T 
90 BEEP 
- Fin... 
I est court, non, ce programe ? 
100 END 


1000 SUB FORMATIFS,N,D1,D2) 
- C'est en fait ce sous prograene (appelable d’un autre fichier) qui fait tout le travail. 
1016 DIM A$(2567J,B$12541,D1$111,D2$[1) 
- À$: Chaîne qui contient l'enregistresent en cours d'étude 
B$: Chaîne non foraattée. H$ contiendra ensuite le reste de A$ non forratté. 
DI$ et D2$: les caractères spéciaux. 
Note au sujet de A$ et B$: on ne peut pas écrire (par EDTEXT) une chaîne de plus de 96 


caractères, mais il peut arriver qu’un enregistrerent, à la suite d’une opération telle 
que R, par exesple, fasse plus de 96. Je suppose qu’il n’y a quand séne jasais deux fois 
de suite deux enregistrenents de 256 octets... 

1020 DI$=CHR$(D1) € D2$=CHR$ (DZ) 

1930 SFLAB -i 


- Supprise le aessage d'avertissesent: sieux qu'un ON ERROR dans ce cas bien précis, 
1040 PURGE FTEXT 
1050 CFLAG -1 
1080 CREATE TEXT FTEXT 

- FTEXT: vide au départ, fichier forsatté à la fin. 

F$: fichier non forsatté au départ, vide à la fin. 

1070 ASSIGN #1 TO F$ 
1666 ASSIGN #2 TD FTEXT 


1090 BOUCLE”: 
1100 ON ERROR 6070 *FIN° 

- L'erreur est la fin de fichier, qui signifie la fin du progranme. 
1110 READ #1,0:A$ 
1120 OFF ERROR 
1130 IF ASCI,1)=D1$ THEN *FORM' 

- Si le prenier caractère est "\", alors justification à gauche et à droite. 
1140 IF A$C1,11=D2$ THEN 60SUB ?CENT’ 

- Si le prenier caractère est "*", alors centrage de la chaîne A$. 
1150 DELETE #1,0 

- Le fichier F$ rétrecit ! 





1160 PRINT #2: A$ 
- Le fichier FTEXT grossit ! 
1170 60T0 * BOUCLE” 


1180 *FIN’: 
1190 PURGE F$ 
- Le fichier F$ se rétrecit encore plus, 
1200 RENAME FTEXT TO F4 
- pour être resplacé par FTEXT ! 
1210 END 


2000 *CENT’: 

- Centrage. 
2010 A$=A$C2] 

- On éliaine le caractère "#*. 
2020 CALL DEGRAIS (A$) 

- On enlève les espaces superflus, 
2030 CALL CENTRE (AS, N) 

- et on centre, 
2040 RETURN 


3000 *FORM’: 
- Foraattage. 
3010 REPLACE #1,0;A$12] 
- On enlève, dans le fichier, le caractère “\", 
3020 B$=°* 
3030 CFLAG 5 
- Le Flag 5 sert à indiquer la fin du fornattage, 


3040 *BOUCLEF": 
- Boucle de fornattage. 
3050 READ #1,05A$ 
3060 DELETE #1,0 
3070 CALL DEGRAIS (A$) 
- On enlève les espaces superflus. 
3080 IF ASILEN(A$)]=D1$ THEN SFLAG 5 À A$=A$TI,LEN(A#)-11 
- Si le dernier caractère est "\", il faudra arrêter là, 
3090 IF A$=** THEN ‘SUITE’ 
- Si l'enregistrement est vide, on n’en tient pas compte. 
3100 IF B$4°? THEN B$=B$4? ? 
- Si B$ est non vide, il faut #ettre un espace entre le dernier aot de l'enregistrement 
précédent et le preaier de cet enregistrement. 
3110 R$=B$£AS 


3120 *FORMAT”: 
3130 A$=°° 
3140 IF LEN(E$)€=N THEN ? SUITE” 
- Si on n’a pas assez de caractères, on ne justifie pas cette fois-ci, 
On ne set pas plus de n/2 espaces pour justifier, question d'esthétique, 


ad 
0 
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3160 IF R$0J,d1=" * THEN A$=R$CJ+1] & B#$=R$C1,J-11 8 G6OTO ‘JUSTI? 
3170 NEXT d 
3180 A$=B$IN+1] 
3190 B$=R$TI, NI 
- Tant pis, on coupe en plein #ilieu d’un aot. Vous n’aviez qu’à pas enployer des nots 
compliqués, dont vous ne connaissez RËme pas le sens ! 


3200 *JUSTI': 
3210 CALL JUSTIFICIB#,N) 
- On justifie E$ à N, 
3220 PRINT 42:B$ 
- et on le met dans FTEXT, 
3230 B$=A$ 
- À$ contient le reste, 
3240 IF LEN(B$)?N THEN G60TO *FORMAT* 
- et on reccomence si ce reste fait plus de N caractères. 


3290 ?SUITE”: 
3260 IF FLAG{S) THEN PRINT 42:B$ & GOTO * BOUCLE” 
- Si il faut arrêter, on recopie purerent et simplement K$ {sansforaattage) et on revient 
à la boucle principale. 
3270 60710 *BOUCLEF”’ 


5000 SUB JUSTIFIC(LS,N) 
- Justification de L$ à N caractères, 
Le principe est de settre un espace supplémentaire devant chaque not, puis de reccomencer 
autant de fois que nécessaire, 
3910 FOR K=1 TO INF 
- K: nombre d'espaces rajoutés, 
ü020 FOR I=1 TO N 
- ] parcourt la chaîne Lé, 
9030 IF LEN(L#)=N THEN *FIN° 
5046 P=F0S(1#," *,1) 
9050 IF P=0 THEN *ESPSUIY" 
9060 Lé[PI=’ *'ELSCP] 
5070 I=P+K 
2080 NEXT I 


3090 *ESPSUIV': 
3100 NEXT K 


9110 *FIN': 
3120 END SUB 


4000 SUB DEGRAIS (LS) 

- Dégraissage (enlever les espaces superflus) de Lé$. 
6010 FOR 1=t TO INF 
8020 P=POSILS,* *,1) 


6050 IF P=0 THEN *FIN’ 

6040 FOR K=1 TO INF 

6030 IF L$CP+#K,P+KI8” ? THEN SUITE” 
h08G NEXT K 


8070 *SUITE”: 

6080 L$CP+1,P+K-117="° 
6090 I=P+1 

8100 NEXT I 


6110 *FIN’: 

6120 IF Lé[LEN(L#)]=" * THEN L$é=L$[1,LENIES)-1] 
6130 IF L$[1,1]=7 ? THEN Lé=L#12] 

6140 END SUB 


7000 SUB CENTRE(LS, N) 
- Centrage de L$, dans N caractères, 
7010 DIM ASCINTIN/2)#1] 
7026 FOR 1=1 TD (N-LEN(LS$))7/2 
7030 A$=A$L" ? 
7040 HEXT I 
7050 L£<ASELS 
7040 END SUB 





HELENE NO EE TEE TOO LEE EE RELEASES ENEEET ERNST 


PROGRAMME “JEURECRE" (jeu recreatif) 


100 INTEGER I,B,KL,E,T 

110 RANDOMIZE & OPTION BASE 1 

126 INPUT ‘Nbre de chiffres: *,'10°;8 
130 INTEGER N(E) 

140 DELAY 1 @ T=TIME 


150 *DEBUT”: 

160 FOR 1=1 TO B 
170 N(I)=100#RND 
180 GOSUB *AFF* 


190 GOSUB ENTREE” 
200 NEXT I 


210 *FIN’: T=TIME-T 
220 DISP TAR(S);°#tt FIN t#t° 

230 DELAY 0,0 

240 DISP USING "DD, Nb°,30,'Err,34,30, sec" "3 BE, T 
250 DESTROY ALL & END 
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210 ‘AFF’: 

280 FOR L:1 TO I 
290 DISP NL) 
300 NEXT L 

310 RETURN 


320 ?ENTREE’: 

350 FOR Ki TD I 

340 INPUT L 

330 IF LAHN(K) THEN GOSUB *ERR° 
360 NEXT K 

370 DISP *OK° € RETURN 


380 *ERR’: 

390 BEEP 500 & DISP ‘Erreur’ 
409 E=E+1 & GOSUE AFF? 

410 K=0 & BEEP 1000,.1 

420 RETURN 





DRRSLELET EEE EE DETTE EEE EEE TELLE EEE TELE LTÉE EEE TELE EEE EEE EEE NEEEETEEENEÉ 


ROUTINES “COD" ET "DECOD" (exploration de la #enaire) 


1000 SUB COD(A$,B$) 

1010 B$=’? @ FOR I=1 TO LEN(A$) & B$=BSkDTHS (NUMIA$CI]))[47 @ NEXT I 
1020 FOR I=1 TO LEN(B$) STEP 2 & H$CI,I+11=B$01+#1,1[+1)8B$01,1) & NEXT I 
1030 END SUB 


1540 SUB DECOD(A$,B#) 

1050 D=LENIA$) @ DIM C$CD] & FOR I=1 T0 D STEP 2 & Cé=C$LAS$CI+1,I+114A$CI,11 &@ NEXT I 
1060 B$="*° @ FOR 1=1 TO D STEP 2 À H$=BSé£CHRS$(HTDICS[I,1+11)) & NEXT I 

1070 END SUB 


TOOL ETES ETES ES ONE EEE EST ANNAANNNARANLETATANALENTIANNTANTTATEES 
PROGRAMME "DET" (calcul de determinant} 
10 DESTROY ALL 


20 INPUT ‘Ordre ? *;N 
30 DIM MIN,N) 


40 CALL INPUM(,),N,0) 





90 CALL DET(M(,), CN), D) 
60 DISP ’Déterainant=’;D 
- entrée de données. 


80 SUB INP(M(,),N,F) 
90 FOR Y=1 TO N &@ FOR {=1 TO N+F 
100 DISP 'D{’5Y5°,/345")=" 5 @ INPUT ‘’a MIX, Ÿ) 
119 NEXT X & NEÏT Ÿ 
- calcul du DETerginant. 


130 SUB DET(M(,),N,D) 
140 IF N(?1 THEN END 
150 IF N={ THEN D=M{1,1) @ END 
160 DIM M2(N-1,N-1) 
170 CALL REDIM(,),N,M2(,)) & N=N-1 & DESTROY M 
180 IF N=1 THEN D=M2(1,1) & END 
190 DIM MIN-1,N-1) 
200 CALL RED(M2(,),N,M(,)) & N=N-1 @ DESTROY M2 
210 G60TO 150 
- REPuction. 


230 SUB REDIM(,I,N,M20,)) 
240 FOR X=1 TO N-1 & FOR Y=1 TO N-1 
250 M2(X,YI=MC1,1) NX #1, V+1)-MU1,Y+1)4M(X+#1,1) 
260 IF XC)1 THEN M2UXSYI=M2(X,Y)/M01,1) 
270 NEXT Ÿ & NEÏT À 
- résolution de SYStèae. 


290 SUB SYS @ DEFAULT EXTEND & A=TRAP(IVL,2) & SFLAB -{ 
300 INPUT “Nb d’inconnues ? "iN 
310 DIM SIN) ,MN+I,N) 
320 CALL INPIM(,),N, 1) 
330 CALL SOL(M(,),N,50) 
340 FOR A=1 TO N € DISP ’X'ESTRS(A)&’=" 5 (A) 
330 IF KEY$=’* THEN 350 
360 NEXT À 
- calculs. 


380 SUB SOL (M(,1,N,S0)) 
390 CALL DETUM(, D, (N), D) 

400 FOR A=1 TO N 

410 FOR B=1 TO N 

420 C=NIA,B) © MIA,R)=MN+1,B) & MUN+1,H)=C 
430 NEXT B 

440 CALL DETEM(, ?, CN), RD 

450 R=R/D 

460 S(AI=R & FOR B=1 TO N 

470 C=NIA,B) © MUA,B)=MN+1,B) @ MIN+I,B)=C 
480 NEXT B & NEXT A 
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PEINE EEE TETE EEE OA EEE EEE EEE SEEN SEE OL ER TENTE EE TENNANATEERANNNNTETETEES 


PROGRAMME “GRAPH71" (graphique sur HP7I 


- Creation de graphique 
(C) 1984 Vincent Herlicg V2NS 

30 DESTROY ALL 

35 FIX 0 

49 INPUT ‘Nosbre de caracteres?" ,'97:N 
J0 IF NI THEN N=1 

60 IF N>22 THEN N=22 

70 DELAY ,3,INF 

80 DIM ASENTEJ, AÏSINI6],B$C21,K$041,6$L61,K(8),K#010] 
90 POKE ‘2F441°,°1° 
106 J=1 
110 INPUT ‘Nouveau graphique ?°,°0":B$ 
120 IF B$[0,11=°N° THEN ‘’BF° 
150 DISP * GRAPH71 (C) V.HERLICE” 
140 Af="° 
150 FOR 1=1 TO Ni 
166 A$=ASECHRS (253) 
170 NEXT I 


180 *AF1°: 

190 B=NUNM(A$CJ,11) 

200 B$=DTH$(B) C4] 

210 POKE *2F6E9",H$L21kB$10,1] 


229 *AFF': ! Affichage du graphique 
2350 A$<ASCO, d-1IRCHRS (BH) LASEI+1] 


2464 *CLA’: ! Saisie clavier 
259 ON TIMER #1,4600 GOSUB °XX° 
240 K$=KEYS$ 


270 *CLAÏ’: IF K$=’ * THEN K$=’7449 

280 IF K$=’0* DR K#=’1? THEN *B'&K$ ELSE K$=K#[2] 

290 IF K$=°39" OR K$=’47" OR K$=°48 OR K$="49" OR K$=?507 DR K$=’51? THEN *E'8K# 
300 IF FLAGIL,9)=0 THEN SFLAG L 

310 AÏ$=A$CO,J-1IRCHR$ (HTD(PEEK$ (? 2FGEA", L)KPEEKS (°2F8E9", 1) )}KASTJ+#11 

320 IF FLAGIL,0)=0 THEN SFLAG L 


330 ’CLIG': ! Affichage clignotant 
340 ON TINER #1,600 GOSUB ’1X° 
330 K$=KEYS 
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360 IF K$#’? THEN ‘CLAI” 

370 IF FLAG(8,0)=0 THEN GDISP A$ & SFLAG B ELSE GDISP A1$ 
380 HAIT .4 

390 G0TO 350 


400 *B38°: ! Menu option 

410 DISP ‘Ed,F,Manip,D,0 7° 

420 ON TIMER #1,600 GOSUB * XX’ 

430 K#=KEY$ 

440 IF K$='E’ OR K$='F" OR K#$=°M° OR K$=’D° OR K$=°0*7 THEN OFF TIMER #1 8 G0TO *E'EK$ 
450 GOTO 430 


460 *BE’: ! Editeur 

470 DISP ?C,D,Ent,Ng,T,1,F 7° 

480 ON TIMER #1,600 GOSUB ’XX° 

490 KI-KEYS 

506 IF KS#'C* AND KSHD° AND KSHE? AND KSH°N° AND K&H°T* AND KS4°F° AND KS#° 1” THEN 490 
510 OFF TIMER #1 & GOTD "E'&K$ 


J20 ‘EC’: ! Reglage du contraste 

330 C=HTD{PEEK$ ('2E3FE*,1)) 

940 DISP *CONTRASTE=" 3€ 

J90 K$=KEY$ 

g60 IF K$='' THEN 550 

979 IF K#='#47° THEN CONTRAST C-1 @ GOTD °EC* 
580 IF K$=’4#48 THEN CONTRAST C+1 & GOTO ?EC* 
390 GOTG *R3E* 


800 *ED’: ! Affichage graphique 
&10 GOTD ‘AFF’ 


620 *EE’: ! Entrer d'un graphique selon ses codes 
830 B$=STR$ IN) 

640 INPUT ‘Nb de chrs ?°,B$iN 

b50 IF Ni THEN N=1 ELSE IF N>22 THEN N=22 

660 DIN A$CNYE] 

470 A1$=A$C 1 ,NK6] 

880 DIM A$INYÉ] 

490 Aÿ=A1$ 

700 J=MIN(J,Nf6) 

710 FOR 1=0 TG N-1 

720 I$=°? 

730 FOR H=1 TO b 

740 KIHI=NUNCASCT#&+H, Itb+H]) 

730 1$=1$k","&STRSEK CH) ) 

760 NEXT H 

710 1$=1$02] 

780 DISP ’Chr ‘;1+#1; 

790 INPUT *7°,1#3K(1),K02),K03),K(4),K (9), K (6) 


JPC 
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800 FOR H=1 TO b 

810 A$CIt6+H, IF6+HJ=CHRS (K(H}) 
820 NEXT H 

830 NEXT I 

840 GOTO *AF1? 


850 ’El°: ! Iapression d’un graphique 
880 GDISP A$ 

870 PRINT CHR$(27)&°&k1S? 

880 PRINT CHR$(27) &CHR$ 1124) 

890 FOR H=1 TO Ntb 

900 T=NUM{IA$CH,H]) 

910 A1$="* 

920 FOR 1=0 T0 7 

930 IF BITIT,I) THEN AL$IB-1,8-1]=CHR#(31) ELSE A1$[8-1,8-11=CHR$ 132) 
940 NEXT I 

930 PRINT A1$ 

960 NEXT H 

970 PRINT CHR$ (252) 

980 PRINT CHR$(27}L'&KOS? 

990 G0TO *AF1’ 


1900 ‘EN’: ! Nouveau graphique 
1010 DISP ‘Nouvel ecran 7° 
1020 K$=KEYS 


1030 ON TINER #1,600 GOSUB *XX° 

1040 IF K$=’? THEN 1020 ELSE OFF TIMER #1 & IF K$=’N? THEN °BE’ 
1050 A$=°? 

1660 FOR I=1 T0 Nft 

1070 A$=ASLCHRS (255) 

1089 NEXT I 

1090 GOTO *AF1’ 


1100 ‘ET’: ! Changement de taille 
1110 B$=STR$ IN) 

1120 INPUT ’Nonbre de caracteres ?’,B$:1 
1130 IF IC1 THEN I=1 

1140 IF 1}22 THEN 1=22 

1150 IF N-1>0 THEN ‘AVS’ 

1160 A1$=A$ 

1170 DIM A$CI46] 

1180 A$=AL$CO, [th] 

1190 DIM AI$[It6] 

1200 IF I-N-1<0 THEN ’ET{”? 

1210 FOR H=1 TO (I-Nité 

1220 AS=ASEKCHRS (255) 

1230 NEXT H 

1240 N=1 

1250 B=NUN(A$CJ,91) 

1280 GOTO *AFF’ 
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1270 ‘AVS: ! Message si perte de graphisne 
1240 DISP ‘Perte de’;N-li'caractere*; 

1290 IF N-I3{ THEN DISP ‘s ?’ ELSE DISP ? 7° 
1300 K$=KEY$ 

1310 IF K$=’0* THEN 1170 

1326 IF K$=’° THEN 1300 ELSE 1110 


1330 *ETI’: N=I 
1340 J=HIN(I,N) 
1350 GOTO *AF1’ 


1360 *EF’: ! Retour option 
1370 G0TO *B38° 


1380 *B47°: ! Deplacement vers la gauche 
1390 OFF TIMER #1 

1400 IF J-1€1 THEN J=Nté ELSE J=J-1 

1410 GOTO ‘AF1* 


1420 *B48°: ! Deplacenent vers La droite 
1430 OFF TIMER #1 

1440 IF J+LèNib THEN J=! ELSE J=J+#i 

1450 GOTO *AF1° 


1460 *B49°: ! Deplaceaent du pointeur 
1470 OFF TIMER #1 

1480 G$=STR$(J) 

1490 INPUT "Colonne ?",6$:1 

1500 J=MAX (MOD(I,Nt),0) 

1510 60TO *AF1° 


1520 ‘50°: ! Deplacenent d'une ligne vers le haut 
1530 OFF TIMER #1 

1540 IF L-10 THEN L=7 ELSE L=L-1 

1530 R=NUMIA$CI,d1) 

1580 GOTO ‘AFF? 


1570 *B51°: ! Deplaceaent d'une ligne vers le bas 
1580 OFF TIMER #1 

1590 IF L+1}7 THEN L=0 ELSE L=L+1 

1400 B=NUM(A$CJ, 11) 

1610 GOTD ‘AFF? 


1620 *BO’: ! Efface le point 
1830 OFF TIMER #1 
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1640 CFLAG L 
1650 B=HTDIPEEK$ (*2F6EA’ ,1)&PEEK$(°2F4E9",1)) 
1660 GOTD *AFF’ 


1870 *Bl’: ! Allune le point 

1680 OFF TIMER #1 

1490 SFLAG L 

1700 H=HTDIPEEK$ (?°2F6EA° ,LI&PEEK#(°2F4E9",1)) 
1710 GOTO *AFF” 


1720 °BF°: ! Operation sur les fichiers 

1730 DISP *Sto,Rec,I,Pur,F 7° 

1740 ON TIMER #1,600 GOSUE ‘XX’ 

1730 K$=ÉEYS$ 

1760 IF K$=°S? OR K#=’R° OR K#$='1" OR K$='P" OR K$=’P? OR K$=’F° THEN OFF TIMER #1 & GOTO *F'&KS# 
1770 GOT 1730 


1780 ‘F5’: ! Enregistrement du graphique 
1790 INPUT ‘Noa du fichier ? ?,N$;N$ 
1800 CALL XCATINS,HS,H] 

1810 IF H$#°° THEN ‘ER2° 

1820 CREATE DATA N$,N+1,9 

1830 ASSIGN #1 TO N$ 

1840 PRINT #1,05N 

1830 FOR I=1 TO N 

1860 PRINT #1,I;A$C(I-1)t6+1,1t6] 
1870 NEXT I 

1880 ASSIEN #1 TO ** 

1990 GOTO ’EF° 


1900 *ER2’: DISP ’Purge ’:N$;°9" 
1910 K$=KEYS 

1920 IF K$=°* THEN 1910 ELSE IF K$#°0° THEN 1790 
1930 PURGE N$ € GOTD 1820 


1940 *FR': ! Rappel d'un graphisse 
1950 INPUT ‘Noa du fichier 2° ,N$:N$ 
1940 CALL XCATINS,H$,H) 

1970 IF H$="* THEN *FER2* 

1980 ASSIGN #1 TO N$ 

1990 READ #1,05H 

20060 IF HÈN THEN ‘FER 

2010 A$="? 

2020 FOR 1=1 TO H 

2030 READ #1,1:6$ 

2040 A$=ASLGS 

2050 NEXT 1 

2060 IF HN THEN ‘AF1” 

2070 FOR 121 TO N-H 





2080 A$=A$L"" 
2090 NEXT I 
2100 GOTD *AF1* 


2110 ?FER2': 

2126 DISP N$£" n'eviste pas" 
2130 N$="" 

2140 G60TO *BF° 


2150 *FERL’': DISP ‘Perte de *;H-N;° caractere’; 
2160 IF H-N>1 THEN DISP ?s 7° ELSE DISP * ?* 
2170 K$=KEV$ 

2180 IF K$=°? THEN 2170 ELSE IF K$4°0* THEN *BF° 
2190 H=N 

2200 G6QTO 2010 


2210 *FI°: ! Tapression des codes du graphique 
2220 INPUT ’Noa du fichier ?’,N$:N$ 

2230 ASSIGN #1 TD N$ 

2240 READ #H,0:H 

2250 PRINT N$:°:";H; caractere’; 

2260 IF H>f THEN PRINT ‘5° 

2270 FOR I=i TO H 

2280 READ #1,1:6$ 

2290 FOR H=i TO & 

2300 K{H)=NUM(G$CH,H1) 

2319 NEXT H 

2320 PRINT USING *3D,/,614D)'3;1,K{1),K(2),K(3),K(4),K (5) ,K(h) 
2330 NEXT I 

2340 GOTO ‘BF? 


2350 *FP': ! Effacer un fichier 
2360 INPUT ‘Noæ du fichier ?’:M$ 
2370 DISP ‘Effacer ‘3N$;°7° 

2380 K$=KEY$ 

2390 IF K$=’'? THEN 2380 

2490 IF K$#°0° THEN ’BF° 

2410 PURGE M$ 

2420 GOTO °BF° 


2430 FF’: ! Retour options 
2440 GOTO *RSG” 


2450 ‘BD’: ! Affichage du graphique 
2440 B=NUM(A$CJ,9)) 
2470 GOTO ‘AFF? 
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2480 ’B8’: ! Fin du progranne 

2490 DISP ’Interuption ou Fin ?° 

2500 K$=KEVS$ 

2510 IF K$=’1’ THEN 2560 ELSE IF K$##°F° THEN 2900 
2520 DESTROY ALL 

2530 PDÉE *2F441°,°0? 

2540 PUT *#45° 

2530 END 


2560 BYE 

2570 DISP * TAGRAPH" 
2580 WAIT 2 

2590 GOTO *AF1’ 


2800 *BM': ! Manipulation speciale 

2810 DISP ‘C,Inv,Mir,Rot,F 7’ 

2620 ON TIMER #1,600 GOSUB ? XX’ 

2830 K$=KEYS$ 

2640 IF K$=’C* OR K$='1" OR K#='M" OR K$='R* OR K$='F" THEN OFF TIMER #1 @ GOTD ’M°&K# 
2650 GOTO 2650 


2860 Ml’: ! Inverse video 
2670 FOR I=1 TO Nté 
2880 A$=A$CO, 1-1 INCHRS(253-NUM ASCII, 1]))&A$CI +1] 


2890 GDISP À$ 
2700 NEXT I 
2710 GOTO *AF1° 


2720 ‘MM’: ! Effet miroir 
2730 A1$=Aÿ € A$="* 

2740 FOR I=1 TO Nté 

2750 A$CO,0)=AI$ET, 11 

2780 GDISP AL$CI+118A$C1,11 
2770 NEÏT I 

2780 GOTO *AF{ 


2790 *HC': ! Renverse le graghique(Culbute)} 
2800 FOR 1=1 TO Nf6 

2810 IF ASCII, II=CHR$(0) OR ASCI,IJ=CHR$(254) THEN 2870 
2820 POKE *2F4E9°,DTH$ (NUM(ASCI,11))E4] 
2830 FOR H=0 TO 3 

2840 K(13=FLAGCH,FLAG(7-H,FLAG(H}}) 

2850 NEXT H 

2860 A$CI, 1I=CHR$ (HTD(PEEK$(72F6E9",2))} 
2870 GDISP À$ 

2880 HEXT 1 

2890 GOTO ’AF1* 
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2906 °MR': ! Rotation du graphisae par colonne 

2910 INPUT ’Nosbre de colonnes ?°,°6";H 

2920 H=MOD(H+NS6,Nf6) 

2930 IF HEN#6/2 THEN SFLAG 8 ELSE CFLAG B 8 H=Nté-H 

2940 FOR 1=1 TO H 

2950 IF FLAG(8)=0 THEN A$=AS$ENTEIRASIO Ntô-1] ELSE A$=AS$C218A$00,1] 
2969 GDISP A$ 

2970 NEXT 1 

2980 G60TO *AF1* 


3010 SUB XCATINS,1$,1) 
S020 IF LEN(N$){8 THEN NS=N$&° * &@ GOTD 3020 
3030 ON ERROR 6070 3076 


3040 FOR J=1 TO 3 @ READ I$ 

3056 FOR 1=1 TO INF & IF N$é=CATS(L,1#)11,681 THEN 3110 ELSE IF CAT#(1,1#1=7° THEN 3070 
3060 NEXT I 

3076 NEXT J 

3080 1=0 & 1$=°° 


3100 OFF ERROR 
3110 END SUB 
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FEV 85 FFC PARIS CHAPFTER 


ASSOCIATION REGIE PAR LA LOI DE 1901, ENREGISTREE 
À PARIS LE 2 DECEMBRE 1982 SOUS LE NUMERO 82/3240 


EUILLETIN D° ADHESION 


NOM PUR PR PRE Re ARE A Rae PP HR OR MAÉ doc D 4 
PRENOM LIT PORN FN 4 4 ft DATE DE NAISSANCE 17 8 HA 9 
BONESSE NN NU OS OPEN OPA D EU 6 DO OU A ft OT UE OU OR D NO D DU 
MNCNENMNS EN ENC SIN EN ENS ENMNENNSRRE 
COMMUNE CRE 4 GREC RO OR RE dE D O4 8 ON À toi ER Doro # À 8 8 D € 
CODE POSTAL 19 1 SONORE POS LUE À D OU D OU ON OH ONO 8 € DO À Ed 6 
TELEFHONE DOMICILE 1_ICI/I0I CCI CH ICI 1 BUREAU 1H ROUE RO OR RUE 


FROFESSION 
INTERETS 


MATÉRERL. HP EN VOTRE FOSSES TON noce ou Ai 


AUTRE. MATERLEL MDERG DNFORMAR IDE 


COMMENT AVEZ-VOUS CONNL PFC FARIS CHAFPTER ? 
PUBLICITE st eo: __ MAGAZINE _____ 
AUTRE CLUE HF: 


RELATIONS. MEMBRES DU CLUE, AUTRES 


QUE RECHERCHEZ-VOUS AU SEIN DU FFC FARIS CHAFTER 7 


Je souhaite adhérer au club FFC FARIS CHÊFTER conformément aux statute : 
l'association. Au mieux de ma connalssance, je déclare avoir le droit de fourn 
tous les programmes et informations que je vous enverrai (gans enfreindre di 
obligations de secret à l'égard d'autres Personnes OU organismes) po 
publication dans le journal de liaison, sens obligations ni responsabili: 
d'aucune sorte (en cas d'utilisation frauduleuse) de la part des dirigeants 
FFC FARIS CHAPTER. 


DATE LP PE ER 


SIGNATURE, FRECEDEE DE Lé MENTION "LU ET AFFROUVE" 


LE MONTANT DE LA COTISATION AL FFC FARIS CHÉPTER S'ELEVE & 500,00 FF, 
ETUDIANTS: 250,00 FF, (JUSTIFICATIF INDISFENSAELE) 
PAIEMENT EFFECTUE LE 1010144104 01/1800 À L'ORDRE DE FFC FARIS CHÉFTER, 


FAR L 1 CHEQUE BANCAIRE N° BANQUE 
CL 1 CHEQUE FOSTAL 3 VOLETS N° 
[ 1 MANDAT LETTRE 
EVENTUELLEMENT: JE M°ABONNE à COMFTER DU II LI/12 
JOINDRE & VOTRE INSCRIPTION UNE FHOTO D'IDENTITE 
VOTRE ADRESSE. 


# 


1 1/19! 1! 
ET UNE ENVELOFFE TIMBREE À 


VEUILLEZ ENVOYER TOUTE CORRESFONDANCE À: 
MR PHILIPPE GUEZ, 56 RUE J.J. ROUSSEAU, 75001 PARIS (FRANCE) 
.IPE n'?f oa3e 53 





